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ABSTRACT 


The  use  of  packet  virtual  circuit  technique  for  voice 
communications  in  military  radio  networks  was  investigated. 
The  work  was  concerned  with  various  aspects  of  networking 
which  include  network  modeling,  communications  techniques, 
traffic  analysis  and  network  control. 

An  attempt  has  been  made  to  develop  a  simple  yet  effi¬ 
cient  time  slot  assignment  algorithm.  Performance  of  this 
algorithm  was  analyzed  under  a  variety  of  slot  depths  and 
network  topologies  using  computer  simulation.  The  Erlang*  B 
results  were  used  to  provide  more  insight  into  the  channel 
characteristics  of  the  packet  radio  networks.  The  capabili¬ 
ties  of  implementing  TDMA/CDMA  hybrid  schemes  in  the  system 
were  scrutinized. 

A  method  to  estimate  the  transmission  capacity  of  the 
inter-node  links  was  found.  We  demonstrated  its  effective¬ 
ness  in  controlling  local  congestion  by  computer  simulation. 
Graphical  results  were  presented  to  highlight  the  behavior 
of  the  proposed  packet  radio  networks .  We  concluded  that  an 
appropriate  link  weight  function  would  provide  efficient  and 
reliable  network  services. 
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I.  INTRODUCTION 


A.  BACKGROUND 

Modem  military  communications  systems  are  increasingly 
adopting  the  digital  method  of  transmitting  voice  and  data. 
The  reasons  are  obvious.  Several  kinds  of  technology  such 
as  VLSI  technology,  microprocessor  and  associated  memory 
technology,  time  division  switching  technology,  digital 
transmission,  voice  digitization  technique,  surface  acoustic 
wave  technology  (SAW)  and  new  software  technology  all 
strongly  related  to  digital  communications  systems  have 
advanced  remarkably.  This  has  resulted  in  significant 
reductions  in  data  processing  costs,  and  in  particular 
communications  support.  From  the  operational  point  of  view, 
digital  communications  offers  better  signal  quality  at  the 
expense  of  larger  bandwidth  over  analog  communications  by 
reproducing  accurately  a  sequence  of  electronic  pulses  (or 
"bits")  at  the  receiver.  When  digital  systems  are  operated 
in  multiple-hop  networks,  signal  regeneration  and  signal 
processing  do  not  cause  an  undue  amount  of  degradation  in 
tb*-  signal  quality,  whereas  when  analog  systems  are  operated 
in  the  same  networks,  noise  accumulates.  Another  advantage 
of  digital  communications  systems  is  that  they  generally 
offer  higher  carrier  to  interference  ratio  than  analog 
communications  systems  do  under  the  same  operating 
conditions . 

Digital  radio  networks  or  packet  radio  networks  become  a 
natural  choice  to  provide  efficient  communications  among  a 
large  number  of  mobile  users  in  a  military  tactical 
environment.  In  addition,  the  RF  (radio  frequency)  waveform 
used  by  packet  radios  could  provide  resistance  to  jamming, 


low  probability  of  intercept  (LPI)  and  low  probability  of 
recognition  (LPR)  for  secure  tactical  use.  This  subject 
will  be  treated  in  detail  in  a  later  chapter. 

In  a  packet  radio  network,  all  users  are  assumed  to 
share  a  common  broadcasting  radio  frequency  and  access  to 
the  network  is  controlled  by  microprocessors  in  the  radios. 
The  use  of  computer  control  for  channel  access  can  lead  to  a 
high  throughput  and  low  delay  means  of  interconnection  for 
the  community  of  users.  It  also  allows  multiple  users  to 
simultaneously  access  a  channel  without  causing  much 
degradation  in  the  performance  of  any  individual  user.  Note 
that  the  basic  operation  of  the  network  is  transparent  to 
the  user.  The  user  only  inputs  the  message  (i.e.  voice  or 
data)  to  be  delivered  with  the  necessary  addressing 
information,  and  the  network  handles  all  other  aspects  of 
routing  and  reliable  delivery  of  message  [Ref.  1]. 

It  is  worth  mentioning  that  the  current  communications 
requirements  in  military  applications  are  predominately  for 
voice.  This  is  especially  true  for  military  tactical  or 
field  operations.  We  shall  therefore  focus  our  study  on  how 
to  provide  efficient  and  reliable  voice  communications  over 
packet  radio  networks . 

B.  SCOPE  OF  RESEARCH 

Packet  radio  networks  provide  multi-access  services.  A 
signal  generated  by  a  transmitter  is  received  over  a  wide 
area  by  a  number  of  receivers;  several  transmitters  operated 
in  a  network  may  transmit  signals  simultaneously  on  a  common 
carrier  frequency.  If  two  signals  at  the  same  broadcasting 
frequency  overlap  in  time  at  a  receiver,  we  could  use  CDMA 
(code  division  multiple  access),  a  spread  spectrum 
technique,  to  separate  them  and  receive  them  correctly. 


However,  if  two  neighbors  transmit  at  the  same  time  to  each 
other,  destructive  interference  occurs;  and  in  this  case  we 
assume  that  neither  will  be  received  correctly.  A  means  for 
controlling  this  is  for  each  neighboring  radio  to  transmit 
in  a  different  time  slot.  This  suggests  the  use  of  a  TDMA 
(time  division  multiple  access)  slot  assignment  scheme  for 
multiplexing  in  a  packet  radio  environment. 

The  main  objectives  of  this  thesis  are: 

1.  to  discuss  the  use  of  packet  virtual  circuit  (PVC) 
techniques  for  voice  communications  in  radio 
networks . 

2.  to  present  a  comprehensive  study  of  the  operating 
capabilities  of  a  TDMA/CDMA  hybrid  system  and  its 
operating  conditions  in  the  packet  radio  network. 

3.  to  propose  and  evaluate  a  simple  but  efficient  time 
slot  assignment  algorithm  for  the  packet  virtual 
circuits.  The  performance  of  this  proposed  algorithm 
is  compared  with  that  of  an  algorithm  used  by 
Tritchler  in  1983  by  computer  simulation  in  a  simple 
network. 

4.  to  understand  the  main  differences  between  wire  line 

networks  and  packet  radio  networks ,  and  to 
investigate  how  to  use  Erlang's  B  formula  in 

characterizing  voice  traffic  in  the  packet  radio 
network. 

5.  to  develop  a  method  to  measure  the  availability  and 

transmission  capacity  of  the  inter-node  links  in  the 
packet  radio  network.  These  results  allow  the  YEN 
routing  algorithm  to  produce  desired  path 

assignments  aiming  at  regulating  and  optimizing 
traffic  flow  in  the  network  as  a  whole. 


to  examine  the  impact  of  various  path  updating 
periods  with  this  flow  control  mechanism  on  the 
network  performance  (in  terms  of  the  desired  grade 
of  service).  These  activities  are  simulated  with  a 
richly  connected  radio  network  in  the  SIMSCRIPT 
language  for  execution  on  the  IBM  3033  system. 


II.  NETWORK  MODELING 


A.  CLASSIFICATION  OF  NETWORKS 

Communication  networks  can  be  classified  according  to 
the  type  of  function  or  service  they  offer  [Ref.  2], 
Networks  that  provide  communications  among  all  users  are 
called  switched  communication  networks.  Examples  of  switched 
communications  networks  are  airline  message- exchange 
networks,  Telephone  networks  and  Telex  networks.  The 
nonswitched  networks  provide  communication  between  the  user 
and  the  network  only.  Timesharing  networks  ,  satellite  and 
television  broadcasting  networks  are  examples  of  this 
category.  From  these  examples,  it  is  obvious  that  packet 
radio  networks  fall  into  the  category  of  switched 
communications  networks.  Three  major  types  of  switched 
communication  networks  can  be  readily  found  in  the 
literature.  We  will  briefly  describe  each  of  these  networks 
here.  They  are  : 

1.  circuit  switched  networks  that  provide  fixed 
connections  through  the  networks  between  two  users 
for  the  duration  of  information  exchange. 

2.  packet  switched  networks  that  allow  the  transfer  of 
information  between  two  users  through  the  routing  of 
packets  in  the  networks.  Packets  are  usually 
processed  and  switched  in  a  store  and  forward  manner 
according  to  the  FIFO  (first  in  first  out) 
discipline. 

3.  message  switched  networks  that  receive  and  store  the 
entire  message  in  secondary  storage  at  each  node, 
and  then  transmit  it  to  the  neighboring  node  when 
the  output  link  becomes  available. 


In  this  thesis,  we  study  a  circuit-switching  like 
network  for  voice  communications.  That  is,  voice  is 
digitized  and  packetized  before  transmission.  Data  flow  in 
the  networks  is  in  packetized  form,  but  virtual  connections 
carry  the  voice  traffic.  This  technique  is  known  as  packet 
virtual  circuit  [Refs.  1,3].  It  is  used  to  set  up  a  fixed 
connection  through  the  network  for  the  duration  of  a  voice 
conversation.  These  connections  are  explicitly 
disestablished  by  a  cancel  packet  when  the  called  party  or 
the  calling  party  hangs  up.  Note  that  the  overhead  for 
establishment  and  disestablishment  of  the  connections  are 
negligible  as  compared  with  the  durations  of  voice  sessions. 

Through  the  use  of  a  time  slot  assignment  scheme,  as 
presented  in  the  next  chapter,  this  approach  offers  better 
utilization  of  the  channel  as  compared  with  pure  circuit 
switching.  Since  voice  conversation  is  real  time,  voice 
packets  must  be  received  in  the  order  in  which  they  are 
transmitted  and  with  uniform  and  constant  end-to-end  delay. 
Nonuniform  end-to-end  delays  of  a  fraction  of  a  second  in 
voice  traffic  become  noticeable  and  are  not  desireable. 
During  peak  activity  periods,  pure  packet  switching  using  a 
store  and  forward  process  causes  excessive  nonuniform 
end-to-end  delays  for  the  voice  traffic  and  affects  voice 
intelligibly.  Pure  packet  switching  is  therefore  not 
suitable  for  voice  communications.  Thus,  we  consider  packet 
virtual  circuit  to  be  the  best  choice  for  voice 
communications  over  radio  networks. 

B.  NETWORK  TOPOLOGY 

All  communications  networks  may  be  viewed  as  composed  of 
a  set  of  nodes  and  links.  Figure  2.1  illustrates  a  simple 
network  consisting  of  four  nodes  and  links.  Nodes  are  the 
switching  elements  for  the  communications  and  links  connect 


pairs  of  nodes.  From  the  functional  point  of  view,  the 
network  provides  a  useful  service  to  the  users,  whereas 
nodes  provide  necessary  functions  required  by  the  system, 
and  links  provide  communications  among  nodes. 


Figure  2.1  A  Communications  Network 


Throughout  this  thesis,  we  will  make  the  following 
assumptions  about  a  node,  its  neighbors,  and  a  link.  A  node 
is  a  transceiver  (receiver- transmitter )  with  processing 
capability  and  a  clock.  Many  functions  can  be  performed 
simultaneously  by  parallel  processors  at  each  node.  All 
nodes  in  the  network  have  exactly  the  same  capabilities. 
Each  node  may  process  a  given  message  (packetized  voice) 
differently  depending  on  whether  it  is  a.  destination  node, 
source  node  or  intermediate  node.  When  one  node  can  pass 
traffic  directly  to  another  node,  we  say  that  the  nodes  are 
neighbors.  Each  node  in  the  network  is  allowed  to  have  a 
small  number  of  neighbors,  and  has  a  transmission  range  that 
is  small  compared  to  the  diameter  of  the  network.  Thus 


several  communications  can  be  supported  simultaneously 
across  the  network.  A  link  exists  between  two  nodes 
whenever  two  way  communications  is  possible  between  them. 

Communication  in  a  radio  network  is  by  means  of  antenna 
transmissions.  If  we  assume  the  use  of  omni-directional 
antennas  for  communications,  a  transmission  could  then  be 
received  by  many  other  nodes  besides  the  addressed  node;  any 
node  receiving  traffic  not  addressed  to  it  will  ignore  the 
message.  With  the  use  of  code  division  multiplexing 
technique,  two  or  more  links  to  a  node  may  exist  and  operate 
simultaneously. 

As  the  number  of  nodes  increases,  the  number  of  ways  one 
can  interconnect  the  various  nodes  increased  rapidly.  That 
is,  many  topologies  are  possible  for  a  network.  We  will  not 
discuss  the  efficiency  of  each  of  these  topologies.  Instead, 
we  will  just  briefly  describe  a  number  of  network  topologies 
that  can  be  readily  found  in  the  literature  and  their 
possible  military  applications.  They  are  : 

1.  fully  connected  topology 

2.  minimal  spanning  tree  topology 

3.  single- center ,  single-star  topology  or  centralized 
topology 

4.  single-center,  multidrop  topology 

5.  multicenter,  multistar  topology  or  decentralized 

topology 

6.  multicenter,  multidrop  topology  or  decentralized 

topology 

7.  loop  or  ring  topology 

In  military  applications,  strategic  and  tactical 
networks  may  consists  of  one  or  more  of  the  above 
topologies.  Tactical  networks  commonly  employ  decentralized 
topologies . 


Figure  2.2  illustrates  a  fully  connected  network 
topology.  It  shows  a  direct  connection  between  every  pair  of 
nodes  in  the  network.  The  number  of  links  required  for  such 
a  structure  is  proportional  to  the  square  of  N  where  N  is 
the  number  of  nodes  in  the  network.  This  topology  provides 
better  response  time  and  throughput  than  any  other 
topologies.  Figure  2.3  illustrates  a  minimal  spanning  tree 
topology.  This  topology  uses  a  minimun  number  of  links  to 
construct  a  network. 


Figure  2.2  A  Fully  Connected  Network 


Figure  2.4  illustrates  a  single-center,  single-star 
topology.  This  network  can  be  found  in  military  fire  control 
operations.  Figure  2.5  shows  A  single-center,  multidrop 
topology  which  is  a  multilevel,  hierachical  network.  Army 
battalion  radio  networks  use  similiar  configurations. 


Figure  2.5  A  Single-center  Multidrop  Network 


Figure  2.6  and  2.7  illustrate  two  versions  of  a 


decentralized  topology.  These  are  widely  used  in  the 
private,  corporate  voice  and  data  networks.  These  topologies 
are  also  commonly  used  in  larger  military  radio  networks. 
Figure  2.8  illustrates  a  ring  topology.  This  topology  poses 
many  difficulties  in  terms  of  implementation  for 
bidirectional  information  flow.  Many  researchers  have 
worked  on  this  problem.  A  variety  of  rings  such  as  token 
rings,  contention  rings,  slotted  rings  and  register 


insertion  rings 


discussed  in  the  literature. 


are 


A  Loop  Network 


III.  COMMUNICATIONS  TECHNIQUES 


A.  MULTIPLE  ACCESSING  TECHNIQUE 

The  technique  of  transmitting  and  receiving  a  number  of 
different  signals  over  a  single  communication  path  without 
intefering  with  each  other's  signal  is  referred  to  as 
multiple  access.  By  sharing  the  same  communications  path 
with  other  signals,  the  cost  per  bit  transmitted  may  be 
effectively  reduced,  even  taking  account  of  the  increased 
hardware  complexity.  The  cost  effectiveness  of  the  system  is 
based  on  the  average  loading  of  all  the  communications 
links.  If  the  overall  link  utilization  is  very  low,  multiple 
access  technique  may  prove  to  be  inefficient. 

There  are  two  widely  used  multiple  access  techniques, 
namely,  frequency  division  multiple  access  (FDMA)  and  time 
division  multiple  access  (TDMA).  In  FDMA,  all  users  share 
the  frequency  spectrum  of  a  communications  path  and  transmit 
simultaneously.  Note  that  each  user  is  allocated  a  unique 
frequency  band.  If  the  full  bandwidth  W  of  the 
communications  path  is  divided  into  N  users  (or  N  channels), 
then  each  user  has  the  frequency  bandwith  of  W/N.  Moreover, 
each  user  can  transmit  only  at  speeds  less  than  the 
frequency  slot  of  W/N.  The  limitation  is  due  to  the  need  of 
small  guard  bands  between  adjacent  channels  to  prevent  any 
sideband  signals  from  overlapping.  In  TDMA,  all  users  occupy 
the  same  RF  bandwidth,  but  transmit  sequentially  in  time. 
Finally,  if  we  allow  users  to  occupy  the  same  RF  bandwidth 
and  also  transmit  simultaneously  over  a  single 
communications  path,  some  means  of  separating  the  signals  at 
the  receiver  must  be  used.  Code  division  multiple  access 
(CDMA)  has  this  capability  and  is  our  choice. 


23 


In  CDMA  (also  termed  direct  sequence  spread  spectrum), 
the  signal's  spectrum  is  spread  over  a  radio  frequency 
channel  greater  than  that  necessary  to  transmit  the 
information.  For  example,  64  kbps  packetized  voice  may  be 
modulated  into  a  bandwidth  of  3.2  MHz  rather  than  128  KHz. 
The  band  spreading  is  accomplished  by  means  of  a  PN 
(pseudo -random)  code  which  is  independent  of  the 
information.  The  same  code  is  used  at  the  receiver  to 
correlate  with  the  incoming  signal  and  recover  the  baseband 
information.  More  than  one  correlator  could  be  used  at  the 
receiver  to  receive  different  signals  simultaneously  and 
recover  them  separately. 

References  7,8,  9  and  others  cover  many  other  spectrum 
techniques  such  as  time  hopping  and  frequency  hopping,  these 
are  not  relevant  to  our  study,  and  we  shall  not  discuss 
them. 

B.  TDMA/CDMA  HYBRID  SCHEME 

The  main  advantage  of  TDMA  relative  to  FDMA  is  the 
number  of  carrier  modulation  units  involved.  In  TDMA,  only 
one  carrier  modulation  unit  is  needed,  whereas  in  FDMA  each 
channel  requires  a  separate  carrier  modulation  unit,  and 
therefore  N  such  units  are  needed.  The  most  important 
aspect  of  TDMA  is  that  it  does  not  have  intermodulation 
problem  and  only  performs  simple  processing  on  an  incoming 
message  before  relaying  to  the  next  node.  That  is,  TDMA 
does  not  require  any  analog  to  digital  conversion  in 
relaying  messages  [Ref.  10].  The  major  problem  of  TDMA  is 
that  it  is  vulnerable  to  multipath  interference.  Since  CDMA 
is  a  spread  spectrum  technique,  we  can  incorporate  CDMA  into 
TDMA  to  overcome  this  problem.  We  should  note  that  this 
hybrid  technique  (TDMA/CDMA)  requires  accurate 
synchronization  of  all  the  nodes  in  a  packet  radio  network. 


In  this  hybrid  scheme,  time  is  divided  into  fixed 
duration  frames  and  each  frame  is  further  divided  into  a 
number  of  equal  duration  time  slots.  For  example,  in  our 
work  a  frame  consists  of  12  slots  and  has  duration  of  125 
micro- seconds ;  thus  there  exist  8000  frames  per  second  and 
12  *  8000  slots  per  second.  Each  frame  is  used  to  carry  a 
voice  packet  consisting  of  a  number  of  bits  and  each  of 
these  bits  is  modulated  with  a  spreading  code  before 
transmission.  A  conceptual  implementation  of  this  hybrid 
scheme  in  a  packet  radio  is  shown  on  the  next  page  (Figure 
3.1)  . 

C.  ADDRESSING 

As  shown  in  Figure  3.1,  each  node  is  assigned  a 
pseudonoise  (PN)  code  as  its  identity.  Each  node  must 
therefore  know  about  all  its  neighbors  codes  in  order  to 
receive  their  messages  correctly.  This  provides  message 
privacy.  That  is,  all  packets  transmitted  or  relayed  by  a 
node  to  its  neighbors  will  be  modulated  with  the 
transmitting  node's  own  code  sequence  to  produce  the  desired 
wideband  signals.  At  the  receiver,  the  received  wideband 
signals  are  correlated  with  a  replica  of  the  PN  code  so  as 
to  recover  the  packets  correctly.  In  the  case  of  relay 
traffic,  a  new  wideband  signal  will  be  generated  and 
retransmitted  to  the  neighbor  along  the  best  path  to  the 
destination.  Since  a  different  correlator  is  dedicated  to 
receiving  messages  from  each  neighbor,  the  number  of 
correlators  needed  at  the  receiver  of  each  node  must  be 
equal  to  the  total  number  of  its  neighbors. 

To  recover  the  baseband  information  accurately,  these 
codes  should  provide  autocorrelations  with  low  sidelobes  and 
with  large  amplitude  spikes  of  narrow  width.  Each  code 
should  also  have  low  cross  correlation  with  the  codes  of  the 


Note  :  K  voices,  M  relays 

K  ♦  M  =  G 

L  =  Number  of  chips  per  bit 


Figure  3.1  A  TDMA/CDMA  Packet  Radio 


26 


other  users  so  that  they  do  not  interfere  with  each  other. 
R.  Gold  in  1967  [Ref.  11]  proposed  an  elegant  way  to 
generate  good  codes.  The  key  for  generating  Gold  codes  is 
to  find,  for  a  given  maximal  length  sequence  ,  another  equal 
length  maximal  length  sequence  (MLS)  that,  together  with  the 
first  one,  forms  a  "prefered  pair".  Note  that  maximal  length 
sequence  could  be  easily  generated  by  N  stages  feedback 
shift  registers.  A  Gold  code  will  then  be  formed  by  taking 
the  XOR  (modulo-2  sum)  of  these  two  sequences.  A  total 
number  of  2n  +  1  different  Gold  codes  can  be  generated  from 
this  prefered  pair.  An  interesting  property  about  these 
Gold  codes  is  that  all  cross  correlations  are  bounded.  If  N 
is  sufficiently  large,  these  cross  correlations  are 
extremely  low  relative  to  the  peak  amplitudes  of  each  of  the 
autocorrelations.  This  keeps  bit  error  rate  (BER)  of  the 
system  extremely  low  if  the  input  signal  to  noise  ratio  is 
sufficiently  high.  Bit  error  rate  is  commonly  used  to 
measure  the  effectiveness  of  a  digital  communications  system 
in  the  presence  of  noise  and  interference. 

D.  INTERFERENCE  REJECTION 

As  alluded  to  in  the  previous  sections,  a  TDMA/CDMA 
packet  radio  system  uses  direct  sequence  spreading  signals 
for  communications.  Due  to  the  inherent  processing  gain  of 
the  system,  the  effect  of  narrow-band  interference  can  be 
reduced  significantly.  Processing  gain  (PG)  is  used  in 
|  spread  spectrum  systems  to  measure  the  effectiveness  of  the 


system  against  noise  and  interference.  It  is  defined  as  the 
ratio  between  the  signal  to  noise  or  interference  before  the 
code  correlator  (or  matched  filter)  and  after  the 
correlator.  It  is  equal  to  the  length  of  the  PN  code 
sequence  used  for  an  information  bit  (or  the  number  of  chips 
in  a  bit),  that  is,  PG  =  L,  where  L  is  the  number  of  chips 


per  bit.  The  correlation  of  the  received  signal  with  the 
replica  of  the  PN  code  reduces  the  level  of  the  narrow-band 
interference  by  spreading  it  across  the  frequency  band 
occupied  by  the  wideband  signal.  The  interference  becomes  a 
very  low  noise  with  a  relatively  flat  spectrum.  Conversely, 
the  correlation  operation  collapses  the  desired  signal  to 
the  information  signal  bandwidth.  Thus,  the  effects  of 
interference  due  to  other  users  and  intentional  jamming  can 
be  suppressed  considerably  through  the  use  of  this 
communications  technique.  The  allowable  jamming  to  signal 
(J/S)dB  can  be  determined  by 

( J/S )dB  =  (PG  -  (S/N)out)dB 

where  (S/N)out  is  the  required  signal  to  noise  ratio  to 
realize  a  desired  BER.  For  example,  if  the  processing  gain 
is  20  dB  and  the  output  signal  to  noise  ratio  requires  10  dB 
for  10 ~3  BER,  then  (J/S)dB  =20-10  =  10  dB.  That  is, 
signals  can  be  detected  reliably  even  when  the  interference 
is  10  times  greater  than  the  input  signal  power.  This  is 
certainly  a  powerful  means  to  attenuate  and  reject 
interference. 

The  TDMA/CDMA  technique  is  also  very  effective  in 
overcoming  multipath  interference  or  intersymbol 
interference.  Multiple  interfering  signals  due  to 
reflections  from  geographical  features  or  man-made  objects 
will  arrive  at  the  receiver  with  different  time  delays  and 
different  amplitudes.  These  signals  will  be  rejected  by  the 
matched  filter  at  the  receiver  due  to  the  cross  correlation 
operation.  That  is,  the  correlation  between  the  spreading 
code  and  a  delayed  version  of  the  transmitted  signal 
produces  a  very  small  voltage  level  relative  to  that  of  the 
direct  transmitted  signal  if  the  delay  is  more  than  a  chip's 
duration. 
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In  short,  a  TDMA/CDMA  system  provides  better  utilization 
of  channel,  selective  addressing  capability  for  multiple 
users,  low  probability  of  interception,  anti- interference 
and  especially  antijam  capability  in  a  hostile  electronic 
warfare  environment . 

E.  A  PROPOSED  TIME  SLOT  ASSIGNMENT  ALGORITHM 

Based  on  the  capabilities  of  the  TDMA/CDMA  hybrid 
scheme,  it  is  reasonable  for  us  to  assume  that  intelligible 
voice  communications  could  always  be  effected  if  the  links 
and  particularly  the  time  slots  associated  with  each  link 
are  available.  We  should  next  recognize  that  the  user 
requirements  for  communications  is  a  random  time  process. 
To  achieve  high  call  carrying  capability  in  a  network,  we 
need  an  efficient  time  slot  assignment  scheme  to  place  and 
establish  each  call  swiftly  and  correctly.  If  a  call  request 
is  not  successful  due  to  the  unavailability  of  a  time  slot 
between  the  calling  node  and  the  called  node,  a  busy  tone 
will  be  issued  to  the  user,  and  his  call  request  is 
immediately  cleared  from  the  system. 

We  further  state  the  following  conditions  for  operation 
of  a  packet  radio  network  using  TDMA/CDMA.  First  of  all,  a 
node  is  not  allowed  to  transmit  and  receive  simultaneously 
in  a  slot.  It  can  either  transmit  or  receive  at  a  time. 
However,  because  of  the  CDMA  technique  involved,  nodes  can 
receive  signals  from  more  than  one  neighbor  simultaneously. 
The  maximun  number  of  received  signals  that  can  be  stacked 
in  a  slot  is  defined  as  slot  depth.  For  12  slots  and  125 
micro-seconds  per  frame,  the  desirable  slot  depth  (weighting 
complexity  versus  performance)  will  be  shown  to  be  2  in  a 
later  chapter.  Next,  we  assume  that  each  node  is  listening 
to  its  neighbors  in  any  slot  in  which  it  is  not 
transmitting.  A  virtual  circuit  is  constructed  for  each  call 


consisting  of  a  pair  of  time  slots  on  each  link  in  the  chain 
connecting  the  call  source  and  destination.  The  slots 
associated  with  each  virtual  circuit  will  be  reserved  for 

the  duration  of  the  call.  Finally,  we  assume  that  the 

connectivity  of  the  network  is  static  in  such  a  manner  that 
all  links  remain  intact  for  the  duration  of  each 

conversation  and  each  assignment  process. 

The  desired  assignment  algorithm  should  attempt  to 

distribute  the  transmitted  and  received  signals  uniformly 
over  all  slots  of  a  frame  and  maximize  the  number  of 
successful  calls  established  across  the  network.  A  most 
important  aspect  is  that  it  should  be  easy  to  implement  and 
yet  efficient. 

With  all  these  constraints  and  requirements  in  mind,  we 
propose  a  random  process  time  slot  assignment  algorithm  with 
time-out  procedure.  We  will  demonstrate  the  operation  of 
this  proposed  algorithm  by  example.  A  simple  example  is  to 
consider  how  a  pair  of  time  slots  for  a  calling  node  and  a 
called  node  are  arranged  for  a  virtual  circuit.  Figure  3.2 
shows  time  slot  assignments  per  frame  for  these  two  nodes 
prior  to  a  new  call  attempt.  The  symbol  X-B  and  R-B 
represents  a  slot  in  which  a  node  is  transmitting  to  B,  and 
a  slot  in  which  a  node  is  receiving  from  node  B, 
respectively.  A  pair  of  slots  such  as  X-B  and  R-B  forms  a 
virtual  circuit. 

The  proposed  algorithm  can  be  described  as  follows: 

1.  When  a  user  at  node  A  intends  to  converse  with 
another  user  at  node  C,  he  activates  a  button  with 
node  C’s  address  on  the  packet  radio.  The  packet 
radio  receives  this  signal  and  recognizes  a 
requirement  for  a  virtual  circuit.  It  automatically 
checks  its  path  assignment  table  and  prepares  for 
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Figure  3.2  Time  Slot  Assignments  for  Node  A  and  Node  B 

handshaking.  If  its  best  path  neighbor  for  traffic 
destined  for  node  C  is  node  B  at  this  moment,  it 
sends  RFS  (request  for  service)  with  a  message 
number  and  the  destination  address  to  node  B  in  the 
earliest  available  slot.  An  available  slot  for  node 
A  to  transmit  to  node  B  means  an  empty  slot  at  node 
A  in  which  node  B  is  not  transmitting.  If  this 
local  call  is  placed  and  processed  in  slot  3,  then 
slot  5  will  be  the  available  slot. 

2.  If  the  called  node  (node  B)  receives  the  RFS  from 
node  A  successfully,  it  responds  immediately  with  a 
RTR  (response  to  request)  with  the  same  message 
number  in  an  earliest  available  slot.  In  this 
example,  slot  7  will  be  the  choice.  Note  that  node  B 
fails  to  receive  the  RFS  if  the  total  number  of 
received  signals  in  slot  5  has  reached  the  specified 
slot  depth. 


■J 


3.  Once  the  calling  node  (node  A)  receives  the  RTR  from 
node  B,  it  knows  it  has  made  a  circuit  with  node  B 
(i.e.  slot  5  and  slot  7).  It  then  sends  an  OK 
message  to  node  B  in  slot  5  and  waits  for  an  OK 
message  from  node  C  through  node  B  in  slot  7. 

4.  Immediately  after  receiving  the  OK  message  from  node 
C  through  node  B,  node  A  begins  to  converse  with 
node  C.  We  say  that  a  virtual  circuit  has  been 
established  between  node  A  and  node  C. 

If  node  A  does  not  receive  a  RTR  from  node  B  after 
one  frame  time  (time-out),  it  will  send  the  RFS 
again  in  whatever  available  slot  closest  to  slot  5. 
Node  A  will  make  a  specified  number  of  such  attempts 
before  sending  a  busy  tone  to  the  user. 

Node  B  begins  to  handshake  with  node  C  after 
receiving  the  OK  message  from  node  A.  If  node  B 
fails  to  establish  a  circuit  with  node  C,  it  sends  a 
BD  (breakdown)  message  via  slot  7  to  node  A.  The 
system  in  this  case  will  immediately  send  a  busy 
tone  to  the  user  at  node  A. 


IV.  TRAFFIC  ANALYSIS  AND  NETWORK  CONTROL 


A.  CONCEPTS  OF  TRAFFIC 

The  reliability  of  a  packet  radio  network  depends  upon 
its  ability  to  cope  with  changes  in  network  topology  and 
traffic.  In  other  words,  the  packet  network  must  have  the 
ability  to  react  quickly  to  local  disturbances  due  to 
statistical  peaking  of  traffic  at  certain  critical  nodes  in 
order  to  provide  smooth  operation  for  the  whole  network. 
The  instantaneous  traffic  and  flow  problems  can  be  handled 
appropriately  by  certain  traffic  control  techniques,  which 
we  discuss  below. 

Traffic  control  in  telephone  networks  has  been 
intensively  studied,  analyzed  and  used  for  a  long  time. 
Various  service  disciplines  and  analytical  formulae  such  as 
Poisson,  Erlang  B,  Erlang  C  and  others  has  been  developed 
and  are  well  known  in  traffic  analysis  of  telephony.  The 
mathematics  associated  with  traffic  behavior  can  be  applied 
equally  well  to  study  the  characteristics  of  voice  traffic 
in  packet  radio  networks.  To  properly  apply  the  result  from 
telephony,  it  is  necessary  to  understand  what  is  meant  by 
traffic  intensities  in  the  proposed  packet  radio  network. 

The  amount  of  voice  traffic  offered  to  any  node  in  a 
network  is  a  function  of  two  parameters,  the  average  rate  of 
arrival  of  new  call  attempts  (  \  calls/sec  )  and  the  average 
call  duration  (1/Msecs).  The  product  of  these  two  parameters 
is  a  measure  of  traffic  intensity  (  p  -  A/m  )  and  is  usually 
expressed  in  Erlangs  in  telephony  [Ref.  12].  In  the  packet 
radio  network,  we  use  traffic  intensity  to  indicate  the 
average  number  of  virtual  circuits  needed  (i.e.  pairs  of 
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time  slots  for  voice  sessions)  for  each  link  to  serve  a 
given  amount  of  offered  traffic  (i.e.  given  X  and  m  ) . 

We  are  now  ready  to  consider  the  following  analysis.  We 
assume  each  link  can  carry  at  most  a  total  of  K  virtual 
circuits  (  or  K  servers)  and  that  any  further  new  call 
attempt  will  be  rejected  by  the  network.  In  all  cases,  new 
call  attempts  will  continue  to  be  generated  according  to  a 
Poisson  process.  The  corresponding  state-transition-rate 


diagram  is  shown  in  Figure  4.1  [Ref.  13] 


If  Pj.  denotes  the  probability  that  the  link  has 
established  i  circuits  at  some  arbitrary  time,  it  can  be 
shown  that 
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Pk  can  then  be  determined  by 
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Pk  gives  the  fraction  of  time  that  K  circuits  are  used 
for  the  link.  This  expression  was  first  derived  by  Erlang 
in  1917  and  is  usually  refered  to  as  the  Erlang's  B  formula. 
Note  that  Pk  may  also  be  interpreted  as  the  fraction  of  lost 


We  can  compute  the  average  number  of  calls  (N)  existing 
in  the  network  as  follows. 

N  =  X  i  Pi 

o  1 


P' 
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Thus  far,  we  have  only  considered  Poisson  traffic. 
Traffic  distributions  in  real  situations  often  deviate  from 
Poisson.  A  parameter  describing  different  traffic 
distributions  is.  the  variance- to-tnean  ratio  «.  «  usually 
varies  from  0.5  to  2.0,  and  Poisson  has  a  unity  «  .  Exact 
analysis  of  traffic  for  non-unity  a  is  relatively  difficult. 
In  the  literature,  various  approximation  techniques  are 
developed  and  are  available.  For  simplicity,  we  shall  only 
use  the  Poisson  distribution  in  our  analysis  and  simulation 
work. 


From  a  traffic  standpoint,  the  major  difference  between 
telephone  networks  and  packet  radio  networks  concerns  the 
availabilty  of  time  slots  over  each  frame.  The  telephone 
network  has  full  frame  available  for  voice  traffic,  whereas 
the  packet  radio  network  can  hardly  allow  each  link  to 
fully  utilize  all  the  available  time  slots  in  a  frame.  When 
a  node  has  more  than  one  neighbor,  coordination  for 
communications  is  not  a  easy  task  in  a  radio  network 
environment.  This  is  simply  because  a  packet  radio  can  not 
receive  and  transmit  simultaneously,  whereas  wire  line  do. 
Consequently,  it  is  generally  impossible  for  each  node  to 
allocate  all  its  time  slots  with  its  neighbors,  thereby 
maximizing  the  number  of  circuits  that  each  frame  can 
provide. 


36 


If  we  use  12  slots  per  frame  and  assume  a  slot  depth  of 
2  for  the  radio  network,  the  maximum  number  of  circuits  that 
each  link  can  possibly  establish  is  8.  The  average  number  of 
circuits  we  can  actually  establish  for  this  network  would  be 
less  than  8,  and  has  been  verified  experimentally  to  be 
about  6.  We  will  discuss  this  interesting  result  in  a  later 
chapter. 

B .  NETWORK  ROUTING 

With  a  given  traffic  intensity,  the  radio  network  can 
perform  to  a  expected  grade  of  service  (i.e.  a  specified 
percentage  of  lost  call)  only  if  routing  of  the  traffic  is 
done  in  a  stable,  correct  and  optimal  manner.  Routing  is 
defined  as  a  process  to  find  "best  paths"  for  traffic  flow 
in  the  network.  Various  criterion  functions  are  possible  for 
"best  paths"  [Ref.  14].  The  criterion  for  assigning  best 
paths  in  the  packet  radio  network  is  to  effect  maximum 
traffic  throughput  (or  minimum  lost  call)  in  a  global 
manner.  This  suggests  a  study  of  how  the  entering  traffic 
can  be  distributed  optimally  among  individual  nodes  in  the 
network. 

Due  to  the  inherently  random  character  of  user  demands, 
frequent  changes  of  best  paths  may  be  necessary  to  reflect 
the  new  traffic  status.  The  best  path  of  a 
source-destination  node  pair  is  found  by  computing  the 
shortest  distance  (or  the  least  cost)  over  a  number  of  links 
between  them.  The  distance  (or  cost)  of  a  link,  also  refered 
to  as  link  weight,  is  just  a  positive  number  assigned  to 
each  link  by  the  network  controller. 

Link  weight  is  usually  a  function  of  three  parameters, 
the  signal  to  noise  characteristic  or  the  attenuation,  the 
processing  delay,  and  the  unused  transmission  capacity  of 


the  link.  The  relative  emphasis  on  these  parameters  depends 
on  individual  network  and  user  requirements.  For  example,  a 
network  use  a  fixed  weight  for  all  links  due  to  equal 
transmission  capacity  of  each  link,  the  shortest  paths 
assignment  becomes  a  least  hop  routing  scheme.  A  hop  is 
defined  as  a  trip  over  a  link.  A  large  variety  of  other 
routing  schemes  concerning  the  performance  of  network  with 
these  parameters,  such  as  minimum  packet  delay,  least-energy 
routing  and  maximum  traffic  throughput,  has  been  developed 
in  the  literature  [Refs.  15,16,17].  These  routing  schemes 
can  be  roughly  classified  as  static  routing,  dynamic  routing 
and  hybrid  routing.  A  brief  characteristic  of  each  kind  of 
routing  method  will  be  presented  here. 

Static  routing,  also  refered  to  as  non-adaptive  routing, 
makes  various  assumptions  about  the  node  locations  and  the 
capacities  of  the  links,  and  then  computes  fixed  routing 
tables  with  these  link  weights.  The  path  for  any  node  pair 
is  determined  prior  to  the  network  operation  and  is 
independent  of  normal  traffic  variations.  Although  it  does 
not  adapt  to  changes  in  network  traffic,  it  does  provide 
satisfactory  performance  on  the  average  over  a  range  of 
traffic  intensities.  Least  hop  routing  scheme  is  a  good 
example.  In  short,  static  routing  is  very  useful  for 
networks  having  constant  average  traffic  statistics.  The 
main  advantage  of  static  routing  is  obviously  its  simplicity 
of  implementation.  The  disavantage  is  that  it  is  not  good 
enough  for  time-varying  traffic  situations. 

Dynamic  routing,  also  termed  adaptive  routing,  measures 
and  estimates  the  instantaneous  states  of  the  link,  and 
makes  routing  of  messages  with  these  link  weights.  This 
scheme  ideally  routes  traffic  in  the  perfect  and  optimal 
manner.  In  practice,  it  is  difficult  to  measure  traffic 
status  instantaneously  and  accurately.  Another  practical 
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constraint  is  that  dynamic  routing  introduces  considerable 
amounts  of  overhead  traffic  for  carrying  routing  updates. 
Nevertheless,  dynamic  routing  can  provide  adequate  services 
to  the  networks  having  time- varying  traffic.  A  variety  of 
dynamic  routing  schemes,  such  as  centralized  routing  and 
distributed  routing,  has  been  implemented  in  the  existing 
networks.  We  will  briefly  describe  these  two  dynamic  routing 
schemes  here. 

For  centralized  routing,  a  central  node  in  the  network 
collects  traffic  status  from  all  other  nodes,  processes  it 
and  then  produces  a  new  set  of  best  paths.  One  node  does 
all  the  routing  work.  All  other  nodes  are  not  required  to 
perform  any  routing  processing  and  computation.  This  scheme 
thus  saves  considerably  on  the  amount  of  hardware  needed  for 
the  network.  However,  this  scheme  is  not  robust,  since  a 
failure  of  the  central  node  would  cause  the  whole  network  to 
become  inoperative.  Another  problem  is  that  routing  traffic 
is  concentrated  near  the  central  node,  and  thus  affects  the 
throughput  efficiency  of  the  network.  We  can  find  a  number 
of  centralized  routing  algorithms  that  were  developed  from 
the  graph  theory  in  the  literature.  An  algorithm  proposed 
by  Dijkstra  is  [Ref.  18]  contained  in  Apendix  A.  Because  of 
its  simplicity  and  its  computational  efficiency,  it  was  used 
in  a  distributed  manner  in  our  initial  simulation  work. 

For  distributed  routing,  each  node  constructs  its  own 
routing  table  using  periodic  updating  information  from 
neighboring  nodes.  No  global  knowledge  of  the  topology  is 
needed.  Each  node  knows  only  its  neighbors  and  chooses  a 
prefered  neighbor  for  each  destination  node.  To  implement 
the  Dijkstra  algorithm  in  a  distributed  manner,  a  flooding 
technique  could  be  used  for  each  node  to  inform  all  other 
nodes  about  its  current  traffic  status  (or  new  link  weight). 
After  receiving  the  traffic  update  information,  each  node 


can  then  proceed  with  its  own  routing  computation  using  the 
Dijkstra  algorithm. 

Hybrid  routing  is  considered  to  be  the  most  attractive 
scheme  for  packet  radio  networks.  It  uses  a  link  weight 
function  which  can  produce  approximately  constant  weight 
when  deterministic  network  conditions  dominate  and  highly 
varying  weights  when  dynamic  network  conditions  dominate.  A 
proposed  link  weight  function,  which  can  allow  the  routing 
to  behave  in  the  above  mentioned  manner,  will  be  presented 
and  discussed  in  the  next  section.  A  routing  algorithm 
proposed  by  Yen  [Ref.  19]  which  operates  in  a  truly 
decentralized  network,  was  chosen  for  investigating  the 
performance  and  characteristics  of  this  proposed  link  weight 
function  in  the  radio  network  by  computer  simulation. 

Logan  in  1983  [Ref.  20]  conducted  an  intensive  study  on 
the  Yen  shortest  path  algorithm.  In  his  thesis,  he  mentioned 
that  the  Yen  algorithm  is  superior  in  terms  of  computational 
efficiency  to  many  other  distributed  routing  algorithms.  It 
is  worth  noting  that  the  Yen  routing  algorithm  provides 
slighty  better  computational  efficiency  than  the  modified 
Dijkstra  algorithm.  The  attractiveness  of  the  Yen  algorithm 
is  that  it  requires  no  knowledge  of  the  complete  network 
topology  and  little  information  is  exchanged  between  network 
nodes.  The  description  of  the  Yen  shortest  path  algorithm 
is  contained  in  Appendix  B. 

C.  CONGESTION  CONTROL 

In  general,  flow  control  in  a  communication  network 
serves  to  optimally  allocate  resources  to  satisfy  user 
demands  as  long  as  there  are  resources  and  to  settle 
contention  when  the  network  runs  out  of  resources  [Ref.  21] . 
In  the  packet  radio  network,  the  way  to  settle  the 
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contention  is  simple  and  straight  forward.  An  entering  voice 
call  is  rejected  and  lost  from  the  system  when  the  network 
uses  up  all  its  available  channels  (i.e.  traffic  limit)  and 
no  longer  able  to  accomodate  the  traffic. 

In  addition,  traffic  may  get  lost  due  to  a  local 
congestion  problem  because  of  a  poor  routing  algorithm  or 
inappropriate  link  weight  function.  Assuming  the  Yen 
distributed  routing  is  perfect  in  the  sense  that  it  can 
direct  and  steer  traffic  correctly  according  to  a  given  link 
weight  function,  a  proper  distance  function  must  be  devised 
to  evaluate  current  traffic  status  accurately  for  each  link 
in  the  network  We  believe  that  an  appropriate  routing  can 
enhance  the  network  throughput  at  various  traffic 
intensities  before  reaching  the  traffic  limit.  That  is,  the 
routing  with  a  desirable  distance  function  can  maintain 
maximum  throughput,  retard  congestion,  and  if  congestion  has 
to  occur,  it  occurs  at  maximum  throughput. 

Based  on  these  requirements,  we  propose  a  distance 
function  below  considering  path  attenuation,  link  congestion 
level  (or  transmission  capacity)  and  packet  processing  time. 

DISTANCE (B , A)  =  ATTENUATION (B , A)  +  P . DELAY ( B , A ) 

+  C.LEVEL(B,A) 

DISTANCE(B,A)  computes  link  distance  (or  link  weight) 
from  node  A  to  node  B.  ATTENUATION ( B , A )  signifies  the  signal 
to  noise  characteristic  of  the  link  connecting  node  A  to 
node  B.  P.DELAY(B,A)  includes  processing  delays  both  at  node 
A  and  node  B.  C . LEVEL(B , A)  indicates  indirectly  the 
available  number  of  channels  that  node  A  can  transmit  to 
node  B.  The  detailed  description  and  analysis  of  the  C. LEVEL 
is  contained  in  Appendix  C. 


The  distance  function  will  attempt  to  interrelate  all 
these  parameters  and  produce  desired  distances.  A  proper 
assignment  of  each  of  these  parameter  is  crucial  to  the 
routing  strategy  and  affects  the  network  throughput.  When 
deterministic  network  conditions  prevail,  we  want  the 
distance  function  to  produce  weights  for  least-energy 
routing  [Ref.  22].  In  the  case  of  equal  attenuation  for 
each  link,  least-energy  routing  becomes  least-hop  routing. 
Least-energy  is  the  path  over  a  link  or  a  series  of  links 
with  the  least  attenuation.  This  routing  strategy  may  pose  a 
serious  problem  that  a  relatively  small  number  of  critical 
links  will  pass  the  majority  of  traffic.  [Ref.  23]  When 
dynamic  network  conditions  dominate,  the  distance  function 
should  produce  highly  varying  weights  which  allow  the 
routing  to  avoid  local  congestion.  Both  can  be  achieved  by 
assigning  varying  weights  for  C. LEVEL  and  unvarying  weights 
for  ATTENUATION  and  P. DELAY. 

The  C. LEVEL  should  be  inversely  proportional  to  the 
available  number  of  channels  that  a  link  currently  has.  This 
inverse  function  is  effective  in  the  sense  that  when  a  link 
is  congested,  a  very  high  weight  will  be  assigned  on  that 
link,  and  the  routing  will  try  to  avoid  passing  traffic 
through  the  link.  C. LEVEL  should  therefore  be  assigned  a 
wider  range  of  possible  weights  relative  to  ATTENUATION  and 
P . DELAY . 

Simulation  results,  presented  in  a  later  chapter, 
support  to  a  certain  extent  the  correctness  and  the 
effectiveness  of  the  proposed  distance  function.  Note  that 
if  minimun  packet  delay  is  our  main  concern,  then  the 
P. DELAY  will  be  assigned  a  higher  weight  than  the  other  two 
parameters . 
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V.  SIMULATION 


We  conduct  simulation  when  a  system  cannot  be  studied 
directly  because  it  does  not  yet  exist,  or  is  not  available, 
or  it  is  too  costly  to  work  directly  with  it.  Simulation  is 
also  conducted  when  there  are  many  detailed  questions  that 
are  very  hard  to  answer  through  analysis  alone. 

In  general,  a  simulation  study  is  a  way  of  trying  out 
designs  and  plans  before  their  actual  operations  or 
productions,  and  also  a  way  of  acquiring  new  knowledge  and 
providing  useful  insights  about  a  system  or  an  object. 
Simulations  have  a  wide  range  of  applications  such  as 
aircraft  evaluation  in  wind  tunnel,  war  games,  flight  and 
space  simulation,  queuing  systems  and  others.  [Ref.  24] 

Since  the  advent  of  digital  computers,  simulation  has 
become  a  practical  technique  and  has  made  significant 
contributions  to  both  theory  and  practice  which  ranges  from 
the  validation  of  analytical  models  to  the  creation  of  new 
systems.  This  is  especially  true  in  the  fields  of  control 
systems,  computer  systems  and  communications  networks. 
Complex  interactions  among  interdependent  system  or  units, 
which  are  impossible  or  extremely  difficult  to  study  by 
conventional  analytical  methods,  can  be  investigated  and 
examined  when  computers  execute  simulation  programs.  The 
great  strength  of  simulation  is  that  it  allows  a  model  of  a 
system  or  a  problem  to  be  developed,  tested  and  analyzed 
step  by  step. 

It  is  worth  mentioning  that  simulations  require  large 
amounts  of  detailed  knowledge  about  the  structure  of  the 
system  and  about  patterns  of  usage.  Simulation  is  therefore 


either  limited  by  its  simplifying  assumptions,  or  else  be  of 
the  same  order  of  complexity  as  the  real  system.  In 
addition,  it  is  also  important  that  the  simulations  be 
accompanied  by  analysis  that  can  give  order-of-magnitude 
estimates  to  ensure  that  the  simulation  results  are 
reasonable . 

In  this  thesis,  the  representation  of  the  system  ,  the 
rules  and  relationships  that  describe  it,  is  defined  as  the 
model.  The  use  of  the  model  under  specific  conditions  is 
defined  as  simulation.  The  running  of  the  model  on  the 
digital  computer  is  the  computer  simulation  of  the  system. 
Our  purpose  of  simulation  is  to  investigate  the  system 
behavior  and  performance.  Our  approach  of  simulation  is  to 
develop  a  model  and  verify  that  it  is  a  valid  one;  then  a 
series  of  parametric  simulations  can  be  run  to  gain 
understanding  of  system  behavior  and  performance.  To  this 
end,  we  have  used  and  describe  next  two  networks,  one 
simplified  and  the  other  richly  connected. 

A.  A  SIMPLIFIED  NETWORK 

1.  Goals  of  Simulation 

A  simple  model  will  be  '  used  to  evaluate  the 
performance  of  the  TDMA/CDMA  time  slot  assignment  algorithm 
we  have  developed  in  a  previous  chapter  for  a  military 
packet  radio  network.  This  model  is  tested  on  an  IBM  3033 
system  digital  computer  under  various  traffic  intensities 
and  slot-depth  assignments.  Performance  comparisons  are 
made  between  the  Tritchler  algorithm  and  the  proposed 
algorithm.  An  optimum  slot  depth  will  be  determined  from  the 
simulation  results.  In  addition,  we  employ  Erlang's  B 
results  (by  considering  K  circuits  to  be  6)  to  verify  that 
the  model  and  simulation  results  are  reasonable.  This  allows 


us  to  proceed  with  a  more  sophisticated  model  later. 
Another  objective  of  this  simulation  is  to  observe  and 
confirm  the  difference  between  wire  lines  and  radio  links. 


2 .  Description  of  Model 

Small  networks  (as  parts  of  large  networks)  of  four 
to  eight  nodes  are  connected  in  the  topology  as  shown  in 
Figure  5.1  Network  symmetry  is  observed  such  that  the 
numbers  of  neighbors  of  node  A  is  equal  to  that  of  node  B. 
We  use  this  model  to  scrutinize  the  two  time  slot  schemes 
without  involving  any  routing  algorithm. 


Figure  5.1  A  Simplified  Network 


In  this  model,  a  virtual  circuit  could  be  a  path 
constructed  from  node  A  to  node  B,  or  node  A  via  node  B  to 
node  B1  or  node  B2 ,  or  node  B  to  node  A,  or  node  B  via  node 
A  to  node  A1  or  node  A2 .  That  is,  only  node  A  and  node  B 
are  source  nodes  and  the  remaining  nodes  are  treated  as 
destination  nodes.  The  following  parameters  are  used  in  the 
simulations : 
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1. 


Node  A1  and  node  A2  represent  an  aggregate  of 
nodes  connected  to  node  A.  The  number  of  these 
nodes  is  an  input  parameter  to  a  simulation  run. 
It  is  assigned  a  value  from  1  to  3  .  The 
variation  of  this  parameter  is  to  test  the 
robustness  and  stability  of  the  system  under 
different  network  topologies. 

2.  A  typical  call  distribution  as  a  function  of 
time  in  the  modeled  network  is  shown  in  Figure 
5.2 
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Figure  5.2  A  Typical  Call  Distribution 

New  calls  are  generated  according  to  an 
exponential  distribution  with  a  mean  value 
ranging  from  0.05  secs  to  0.35  secs.  Calls 
created  from  node  A  and  node  B  are  equally 
probable.  Each  node  has  equal  chance  to  be  a 
destination  node. 

3.  The  holding  time  of  virtual  circuit  obeys  an 
exponential  distribution  function  with  a  mean 
value  of  20  secs. 

4.  Since  human  voice  has  a  4  KHz  bandwidth,  we  can 
sample  at  8  KHz  (Nyquist  rate).  The  repetition 
period  of  each  frame  is  therefore  1/8000  secs. 
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Each  frame  consists  of  12  time  slots  and  hence 
all  time  slots  are  10.417  micro-secs  long. 

5.  The  slot-depth  is  assigned  a  value  from  1  to  4 
for  each  simulation  run. 

6.  Each  simulation  run  is  400  secs  long. 

We  will  briefly  describe  the  Tritchler  [Ref.  22] 
time  slot  algorithm  here.  His  algorithm  requires  neighbors 
to  exchange  coordination  messages  so  as  to  arrange  a  pair  of 
time  slots  for  a  circuit.  Three  coordination  messages  are 
used.  They  are  : 

1.  initial  request  for  service  from  the  calling 
node  to  the  called  node 

2.  response  request  for  service  from  the  called 
node  back  to  the  calling  node 

3.  final  assignment  notice  from  the  calling  node  to 
the  called  node 

In  addition,  if  the  called  node  is  not  the 
destination  node,  a  "OK"  message  or  a  "BD"  message  as 
discussed  previously  in  our  proposed  algorithm  will  also  be 
needed  for  the  source  node  to  arrange  a  virtual  circuit  via 
the  intermediate  nodes  to  the  destination  node.  During  the 
assignment,  each  node  seeks  to  conserve  its  unassigned  slots 
by  stacking  the  received  signals  whenever  possible  to  a 
specified  slot-depth  in  a  minumum  number  of  slots.  A  node 
can  receive  a  coordination  message  from  a  neighbor  in  any 
slot  in  which  it  is  not  transmitting.  Note  that  his 
algorithm  has  assumed  that  the  called  node  can  always 
receive  a  coordination  message  from  its  calling  node  as  long 
as  the  called  node  is  not  transmitting.  This  implies  that  a 
slot  may  have  to  receive  one  signal  more  than  its 


B.  A  RICHLY  CONNECTED  NETWORK 


1.  Goals  of  Simulation 

A  more  complete  and  realistic  model  is  developed  to 
study  the  real-time  operations  of  the  packet  radio  networks 
employing  the  proposed  communications  and  control 
techniques.  Proper  operation  of  the  routing  and  congestion 
control  will  be  examined  in  detail. 

For  simplicity,  we  will  first  use  the  Dijkstra 
routing  algorithm  in  a  distributed  manner  with  the 
assumption  that  routing  updates  are  received  correctly  by 
all  nodes  in  the  network  without  actually  allocating  time 
slots  to  carry  the  updating  traffic.  This  model,  though 
relatively  simple,  is  able  to  measure  the  performance  of  the 
proposed  dynamic  control  technique  with  different  traffic 
intensities . 

However,  in  order  to  make  the  model  resemble  the 
object  system  as  closely  as  possible,  we.  will  allocate  time 
slots  for  carrying  routing  updates  and  implement  the  Yen 
routing  algorithm  in  the  network  after  gaining  enough 
experience  from  the  previous  simulation  work.  Note  that  the 
Yen  routing  algorithm  is  believed  to  be  efficient  and 
suitable  for  decentralized  networks  in  the  real  world,  but 
it  is  difficult  to  be  implemented  in  the  simulation  model. 

2 .  Description  of  Model 

Figure  5.3  illustrates  the  network  to  be  used  for 
simulation.  It  is  composed  of  eleven  nodes  and  twenty-two 
links.  This  test  network  is  richly  connected  and  fully 
decentralized  so  that  we  can  generate  the  necessary  dynamic 
network  conditions  for  testing  the  proposed  congestion 
control  mechanism. 
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To  keep  the  simulation  focussed  on  its  goals,  we 
first  construct  a  relatively  simple  model  by  employing  the 
Dijkstra  routing  algorithm  and  assuming  each  node  in  the 
network  has  knowledge  of  all  link  weights  without  actually 
passing  the  updating  information  by  any  time  slot.  After  we 
program  it,  run  it  and  draw  conclusions,  we  will  proceed  to 
a  finer  model  in  which  updating  traffic  is  competing  with 
voice  traffic  for  time  slot  allocation.  Instead  of  the 
Dijkstra  algorithm,  we  will  use  the  Yen  routing  algorithm  to 
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reduce  the  considerable  amount  of  overhead  traffic  caused  by 
using  time  slots  for  routing  updates.  The  parameters  used 
in  the  simulations  are  given  below. 

1.  Each  link  will  be  assigned  a  unique  ATTENUATION 
value  and  a  constant  P. DELAY  value  which  are  the 
same  in  either  direction  for  a  pair  of  nodes. 

2.  A  C. LEVEL  value  will  be  assigned  on  each  link 

according  to  traffic  intensities  at  that 

particular  link  at  the  time  of  updating. 

3.  Update  periods  vary  from  2  secs  to  15  secs.  An 
updating  period  will  be  used  for  each  simulation 
run. 

4.  Entering  traffic  has  the  same  probability 

distributions  and  assignments  as  before. 

5.  Time  frames  and  slots  have  the  same  durations  as 
before . 

6.  Each  simulation  run  is  800  secs  long. 

C.  SIMULATION  LANGUAGE 

There  are  quite  a  number  of  high  level  programming 
languages  available  today.  Some  programming  languages  are 
specifically  developed  for  the  solution  of  equations,  some 
are  written  for  simulations  of  complex  organizations  and 
systems,  and  others  are  designed  for  computer  assisted 
instruction. 

FORTRAN  is  one  of  the  most  widely  used  languages  for 
expressing  mathematical  relationships  [Ref.  .5].  It  has 
excellent  mathematical  capability  and  is  therefore  fully 
equippped  and  supported  by  our  computer  center.  However, 
FORTRAN  is  weak  in  list  processing  and  logic  models.  In 
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particular,  it  is  not  a  language  for  simultaneous  events  or 
discrete-  event  simulation. 

Due  to  the  discrete  nature  of  packet  radio  networks,  we 
will  use  a  discrete-event  programming  language,  that  is 
SIMSCRIPT  II . 5 ,  for  our  simulation  work.  SIMSCRIPT  is  the 
most  widely  used  simulation  language  next  to  GPSS  (General 
Purpose  Simulation  System).  It  was  developed  by  RAND 
Corporation  and  has  been  in  use  since  1962. 

SIMSCRIPT  is  an  English- like  and  free- form  simulation 
language.  The  statements  are  understandable  directly  by 
someone  with  a  minumum  exposure  to  the  language.  List 
processing  capabilities  are  strong.  FIFO  and  LIFO  and 
ordered  data  structures  are  easily  established.  In  addition, 
complex  situations  can  be  well  structured. 

In  a  SIMSCRIPT  simulation,  an  object  system  is 
represented  as  sets  of  temporary  or  permanent  entities,  each 
with  attributes  that  have  individual  values.  The  basic  unit 
of  action  for  carrying  out  the  simulation  is  an  activity. 
The  object  system  is  modeled  and  characterized  by  a  number 
of  activites.  When  operating,  these  activities  reproduce  the 
time-dependent  behavior  of  the  system  being  simulated.  When 
each  activity  occurs,  the  system  state  changes  accordingly. 
The  state  of  the  system  is  changed  by  either  creating  or 
destroying  entities,  or  by  changing  the  attribute  values. 

In  order  to  simulate  the  object  system  accurately,  we 
must  therefore  model  correctly  the  things  that  activities  do 
and  arrange  the  execution  of  subprograms  in  a  proper 
sequence  that  represent  activities.  The  order  of  performing 
activites  within  the  model  corresponds  to  the  order  in  which 
the  same  activites  occur  in  the  object  system.  An  instant  in 
time  at  which  an  activity  starts  or  stops  is  called  an 
event.  SIMSCRIPT  contains  a  built-in  next  event  timing 


routine.  This  timing  routine  is  the  master  controller  of  a 
simulation  run.  Simulation  terminates  when  no  further 
events  are  scheduled  [Ref.  26]. 

D.  SIMULATION  PROGRAMS 

Appendix  D  contains  the  simulation  program  focussing 
investigation  on  the  proposed  time  slot  assignment 
algorithm.  Appendix  E  contains  the  simulation  program  for 
the  model  using  the  Dijkstra  routing  algorithm.  Finally, 
Appendix  F  gives  the  simulation  program  for  the  most 
complete  representation  of  the  proposed  packet  radio 
network,  using  the  Yen  routing  algorithm. 

All  the  simulaion  programs  are  modularly  structured. 
Each  simulation  program  is  composed  of  a  preamble,  main 
routine,  initialization, events  and  routines  of  the 
simulation  model.  The  preamble  has  temporary  entities, 
event  notices,  and  miscellaneous  declarations.  The  main 
routine  initializes  the  model  for  each  new  simulaion  run  and 
transfers  control  to  the  timing  routine  when  initialization 
is  complete.  The  routine  FRESH  INPUT  (initialization)  reads 
in  all  the  data  needed  for  the  simulation  and  resets  all 
counters.  Six  events  are  constructed  for  handshaking  (i.e. 
time  slots  assignment),  virtual  circuit  establishment  and 
virtual  circuit  disestablishment.  The  event  TERMINATION 
terminates  a  simulation  run.  There  are  also  routines  for  the 
routing  algorithm  to  perform  desired  path  assignments, 
distance  computation  and  the  collection  of  statistics. 

Statistical  phenomena  about  the  operation  of  a  model  is 
controlled  by  pseudorandom  number  generators.  SIMSCRIPT  II 
provides  eleven  statistical  functions  for  generating 
indepedent  pseudorandom  numbers.  Three  commonly  encountered 
functions  are  used  in  our  simulation  :  Exponential . F , 
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Randi.F  and  Uniform. F.  Exponential . F  is  used  to  generate 
activities  times.  Randi.F  is  used  for  time  slots  allocation 
and  Uniform. F  is  used  for  generating  various  link 
ATTENUATION'S. 


VI.  RESULTS  AND  DISCUSSIONS 


I  - 

We  tackled  the  analysis  of  the  proposed  packet  radio 
networks  in  a  number  of  stages  as  described  in  the  previous 
chapter.  We  will  present  the  corresponding  simulation 
'  results  in  a  proper  sequence  and  discuss  them  accordingly  in 

this  chapter. 

Performance  of  the  simulation  models  were  measured  by 
|  two  parameters:  the  average  call  setup  time  and  the  grade 

of  service.  Call  setup  time  is  defined  as  the  connection 

time  between  the  moment  the  last  digit  is  keyed  and  the 
moment  the  virtual  circuit  between  the  source  and 
destination  nodes  is  made.  Since  the  simulation  process  is 
somewhat  random,  a  practical  way  to  specify  this  parameter 
is  to  define  the  mean  value  for  the  connection  times.  A  lost 
call  is  caused  by  the  unavailability  of  any  link  connecting 
|  the  source  and  destination  nodes.  We  define  the  grade  of 

service  to  be  the  number  of  successful  calls  over  the  total 
number  of  calls  entering  the  network. 

We  also  use  Erlang's  result  with  appropriate  traffic 
®  intensities  and  number  of  servers  to  provide  a  reliable 

performance  evaluation  of  the  simulation  model  and  to 
provide  more  insight  into  the  channel  characteristic  of  the 
packet  radio  network. 

A.  RESULTS  FOR  TIME  SLOT  ASSIGNMENT  SCHEMES 

An  analysis  of  the  proposed  time  slot  assignment  scheme 
for  various  possible  values  of  N  and  X  between  two  nodes 

is  included  as  Appendix  C.  Table  I  contains  the  analytical 

!  result  for  the  probability  that  the  first  RFS  message 


(request  for  service)  fails  to  travel  from  a  calling  node  to 
a  called  node.  The  table  shows,  as  expected,  that  a  higher 
number  of  calls  that  can  be  established  as  we  increase  the 
allowable  slot  depth.  Increasing  the  slot  depth  from  1  to  2 
generally  results  in  about  5  to  10  percent  improvement. 
There  is  less  improvement  by  increasing  the  slot  depth  from 
2  to  3.  This  fact  is  further  supported  by  the  simulation 
results  shown  in  Figure  6.1  .  It  can  be  seen  from  this 
graph  that  slot  depth  of  4  only  performs  slighty  better  than 
slot  depth  of  2.  We  therefore  conclude  that  slot  depth  of  2 
is  sufficient  for  the  proposed  packet  radio. 

The  performance  of  the  proposed  time  slot  assignment 
algorithm  was  then  evaluated  for  different  network 
topologies  varying  from  4  nodes  to  8  nodes.  The 
corresponding  simulation  results  are  given  in  Figure  6.2, 
6.3  and  6.4  .  The  detailed  simulation  results  are  contained 
in  Table  II  .  Both  the  Tritchler  and  the  proposed  algorithm 
are  plotted  on  the  same  graphs  for  easy  reference  and 
comparison.  Erlang's  B  results  with  6  servers  are  also  shown 
on  all  the  graphs. 

For  4  nodes  network,  it  appears  that  the  network  closely 
resembles  a  line  network  having  6  dedicated  lines.  The 
Erlang's  B  results  fit  quite  well  to  the  simulation  result 
of  4  nodes  network  and  therefore  validates  the  simulation 
model  used.  We  note  that  each  node  in  the  packet  radio 
network  has  8  possible  channels  but  can  only  provide  service 
for  6  channels.  This  is  to  be  expected  since  slot  matching 
is  a  major  problem  when  a  node  is  having  more  than  one 
neighbor  in  the  packet  radio  network.  Radio  network  thus 
performs  somewhat  worse  than  wire  line  network  based  on  same 
amount  of  channels  under  same  traffic  loads. 
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The  performance  results  for  6  nodes  and  8  nodes  networks 
are  very  close  to  each  other.  This  indicates  that  the 
proposed  time  slot  algorithm  is  robust  and  stable  with 
respect  to  the  changes  in  network  topology. 

In  most  cases,  the  proposed  time  slot  algorithm  performs 
better  than  the  Tritchler  algorithm.  This  may  be  due  to  the 
simple  time-out  procedure  that  the  proposed  time  slot 
algorithm  adopts.  Moreover,  the  proposed  time  slot  scheme 
may  give  more  uniform  usage  of  time  slots  in  each  time 
frame.  In  addition,  it  requires  less  mean  call  setup  time 
than  the  Tritchler  algorithm. 


TABLE  I 

A  RFS  Message  from  a  Calling  Node  to  a  Called  Node 


N 

A 

X 

B 

Probability  of  failure 
of  first  attempt 

S  =  1 

S  =  2 

S  =  3 

3 

1 

0.090 

0.090 

0.090 

3 

2 

0.200 

0.150 

0.150 

3 

3 

0.333 

0.278 

0.222 

3 

4 

0.500 

0.375 

0.375 

3 

5 

0.708 

0.569 

0.498 

3 

6 

0.812 

0.685 

0.652 

4 

1 

0.090 

0.090 

0.090 

4 

2 

0.200 

0.150 

0.150 

4 

3 

0.333 

0.278 

0.222 

4 

4 

0.500 

0.375 

0.375 

4 

5 

0.692 

0.562 

0.493 

4 

6 

0.781 

0.657 

0.630 
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Table  I 

A  RFS  Message  from  a  Calling  Node  to  a  Called  Node  (Cont'd.) 


5 

1 

0.090 

0.090 

0.090 

5 

2 

0.200 

0.150 

0.150 

5 

3 

0.333 

0.278 

0.222 

5 

4 

0.498 

0.374 

0.374 

5 

5 

0.662 

0.547 

0.482 

5 

6 

0.742 

0.616 

0.596 

6 

1 

0.090 

0.090 

0.090 

6 

2 

0.200 

0.150 

0.150 

6 

3 

0.333 

0.278 

0.222 

6 

4 

0.490 

0.371 

0.370 

6 

5 

0.618 

0.515 

0.456 

6 

6 

0.696 

0.560 

0.546 

7 

1 

0.090 

0.090 

0.090 

7 

2 

0.200 

0.150 

0.150 

7 

3 

0.332 

0.277 

0.222 

7 

4 

0.467 

0.357 

0.357 

7 

5 

0.563 

0.464 

0.409 

8 

1 

0.090 

0.090 

0.090 

8 

2 

0.200 

0.150 

0.150 

8 

3 

0.323 

0.271 

0.213 

8 

4 

0.422 

0.321 

0.321 

9 

1 

0.090 

0.090 

0.090 

9 

2 

0.197 

0.149 

0.149 

9 

3 

0.293 

0.245 

0.197 

Note  :  S  =  slot  depth 


N  =  number  of  empty  slots  at  node  A  in 
A  which  node  B  is  not  transmitting 


X  =  number  of  slots  in  which  node  B  is 
B  transmitting 


Prob.  of  failure  =  Y  /  N 


SLOT  DEPTH  EVALUATION 


o 


Figure  6.1  Results  for  Slot  Depth  Comparison 
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TABLE  II 

Results  for  the  Simplified  Network 


Percentage 

of 

Mean 

call  setup 

Traffic 

Nodes 

lost  call 

time 

'micro-secs ) 

intensity 

Tritchler  Proposed 

Tritcher  Proposed 

4 

2.86 

0.00 

174 

140 

2 

6 

2.86 

2.86 

192 

169 

8 

2.86 

2.86 

194 

169 

4 

3.85 

0.00 

177 

164 

3 

6 

3.85 

3.85 

205 

192 

8 

3.85 

5.77 

212 

176 

4 

16.00 

16.00 

224 

168 

4 

6 

22.67 

20.00 

225 

201 

8 

22.67 

22.67 

230 

214 

4 

21.35 

21.37 

220 

174 

5 

6 

26.79 

25.85 

244 

192 

8 

27.68 

23.44 

220 

207 

4 

29.73 

28.83 

253 

202 

6 

6 

35.14 

33.33 

268 

209 

8 

36.04 

33.33 

246 

217 

GRADE  OF  SERVICE  (%) 

0.0  5.0  10.0  15.0  20.0  25.0  30.0  35.0 
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20  SECS  HOLD  TIME 


LEGEND 
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o  TRITCHLER 


a  ERLANG'S  RESULTS 


T 

1.0 

2.0  3.0  4.0 

5.0 

6.0 

TRAFFIC  INTENSITY 

B.  RESULTS  FOR  STATIC  AND  DYNAMIC  CONTROL 


One  of  the  major  functions  assigned  to  the  routing 
function  is  to  route  traffic  around  congested  links.  For 
appropriate  updating  periods,  this  will  prevent  the 
congestion  from  becoming  worse  and  maintain  high  network 
throughput.  However,  since  the  alternate  path  is  longer  chan 
the  static  least  hop  path,  packets  will  consume  more  link 
capacity.  In  some  conditions,  especially  when  routing  is  not 
updated  frequently  enough,  this  may  cause  the  congestion  to 
increase  and  spread.  This  phenomena  can  be  observed  from 
Figure  6.5  .  The  corresponding  results  are  contained  in 
Table  III  . 

When  the  updating  period  is  15  secs,  the  network  always 
performs  worse  than  static  least  hop  scheme  does.  When  the 
updating  period  is  5  secs,  the  network  at  lower  traffic 
intensities  always  performs  better  than  the  static  least  hop 
scheme.  This  is  especially  true  for  the  2  secs  updating 
period.  This  shows  that  the  proposed  distance  function  is 
able  to  produce  desirable  path  assignments  for  achieving 
high  network  throughput  by  using  appropriate  updating 
periods,  so  long  as  the  network  is  not  too  close  to 
saturation. 

This  simulation  as  a  whole  has  demonstrated  the 
effectiveness  of  the  proposed  link  weight  function  in 
handling  both  the  dynamic  network  conditions  and  the  static 
network  conditions. 


TABLE  III 


Results  for  Static  and  Dynamic  Network  Control  using  the 

Dijkstra  Algorithm 


Traffic 

intensity 

Percentage  of  lost  call 

Static 

least  hop 

2  secs 

update 

5  secs 

update 

15  secs 

update 

1 

0.00 

0.00 

0.00 

0.00 

2 

1.40 

0.00 

0.00 

2.10 

3 

2.31 

0.00 

0.46 

3.24 

4 

4.55 

3.15 

3.50 

6.99 

5 

6.41 

4.46 

4.74 

10.58 

6 

11.63 

9.40 

12.08 

16.33 

7 

15.11 

13.77 

17.97 

21.22 
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a  DYNAMIC  5  SEC  UPDATE 
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Figure  6.5  Results  for  Static  and  Dynamic  Network  Control 
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C.  RESULTS  FOR  YEN  ROUTING  CONDITIONS 


The  Yen  routing  algorithm  is  employed  with  the  proposed 
distance  function  to  select  paths  that  have  minimum 
resistance  to  additional  flows  and  achieve  maximum  network 
throughput.  In  the  Yen  algorithm,  a  node  will  receive 
routing  information  from  all  nodes  in  the  network  via  its 
neighbors  and  immediately  update  its  own  routing  table  with 
the  new  information.  In  this  manner,  the  routing  table  will 
contain  the  identity  of  the  neighbor  on  the  shortest  path  to 
any  other  nodes  in  the  network.  We  note  that  the  Yen  routing 
algorithm  is  loop  free.  If  the  routing  is  not  loop  free,  the 
network  can  become  totally  congested  even  when  the  entering 
traffic  is  not  heavy. 

It  is  worth  noting  that  top  priority  for  slot  allocation 
is  given  to  routing  updates  so  that  these  messages  will  not 
get  caught  in  network  congestion  and  seriously  affect 
network  performance. 

Simulation  results  given  in  Figure  6.6  and  Table  IV 
shows  the  network  performance  as  functions  of  traffic 
intensity  and  update  period.  With  an  appropriate  updating 
period,  say  5  secs,  the  dynamic  network  control  can  balance 
the  loading  to  prevent  clustering  of  traffic.  In  this  case, 
it  shows  a  better  performance  than  the  static  least-hop 
scheme  for  traffic  intensities  less  than  4.3 

We  observe  that  the  system  acts  like  a  least-hop  scheme 
when  the  network  is  moderately  loaded.  For  traffic 
intensities  greater  than  4.3,  the  static  least-hop  scheme 
performs  better  than  the  dynamic  scheme.  This  indicates  that 
routing  messages  under  heavy  traffic  have  great  impact  on 
the  network  performance. 


TABLE  IV 

Results  for  Network  Control  using  the  Yen  Routing 


Traffic 

intensity 

Grade  of  service 

Static 

least  hop 

2  secs 

update 

5  secs 

update 

15  secs 

update 

1 

0.00 

0.00 

0.00 

0.00 

2 

1.40 

0.00 

0.00 

1.05 

3 

2.31 

0.93 

1.16 

4.17 

4 

4.55 

4.55 

4.03 

6.99 

5 

6.41 

9.02 

8.37 

8.78 

6 

11.63 

13.87 

16.22 

17.00 

7 

15.11 

19.12 

20.27 

22.18 

e. • 7 
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VII.  CONCLUSIONS 


We  have  presented  in  this  thesis  an  efficient  and 
reliable  packet  radio  network  for  military  voice 
communications.  A  variety  of  network  topologies  for  military 
applications  was  given.  We  noted  that  decentralized  networks 
are  commonly  used  in  larger  military  radio  networks.  We  also 
looked  in  detail  at  the  network  modeling  and  assumed  that 
all  the  nodes  are  equally  capable  so  that  the  packet  radios 
are  standardized  and  interoperable.  This  provides  system 
flexibility,  which  is  very  important  for  military 
operations . 

We  have  examined  a  packet  virtual  circuit  technique  for 
establishing  voice  sessions  between  source  nodes  and 
destination  nodes.  The  key  characteristics  of  this  switched 
connection  is  that  it  allows  voice  packets  to  follow  a  fixed 
path  with  constant  end-to-end  delay  through  the  network.  It 
is  worth  mentioning  that  with  voice  packets  we  do  not 
require  retransmission  of  packets  with  errors;  there  will 
usually  be  less  effect  on  voice  intelligibility  due  to 
dropping  bad  packets,  rather  than  incurring  delay  by 
retransmitting  them. 

To  provide  high  channel  quality  and  to  satisfy  traffic 
needs,  a  TDMA/CDMA  hybrid  scheme  was  proposed  and  evaluated. 
The  unique  features  of  this  scheme  are  better  utilization  of 
channel,  selective  addressing  capability  for  multiple  users, 
simple  processing  in  relaying  messages,  low  probability  of 
interception,  anti-interference  and  antijam. 


A  simple  time  slot  assignment  algorithm  which  permits 
expeditious  and  efficient  handling  of  call  connections  was 
proposed.  We  have  demonstrated  its  performance  by  computer 
simulation.  The  results  show  that  it  is  robust  and  stable 
with  respect  to  the  changes  in  network  topology.  A 
desirable  slot  depth  (weighting  complexity  versus 
performance)  was  shown  to  be  two. 

We  used  Erlang's  results  to  verify  the  simulation 
results  and  observed  the  major  difference  between  wire  line 
network  and  packet  radio  network.  The  results  show  that 
each  node  having  eight  possible  channels  could  on  the 
average  provide  service  for  six  channels.  This  indicates 
that  packet  radio  network  performs  somewhat  worse  than  wire 
line  network  given  same  amount  of  channels  under  same 
traffic  loads.  One  should  realize  at  this  point  that  a 
packet  radio  cannot  receive  and  transmit  at  the  same  time 
but  wire  lines  do. 

Since  the  user  demands  are  random  in  nature,  a  method 
for  measuring  the  current  state  of  the  channel  at  each  node 
is  necessary.  We  found  a  method  to  estimate  the  unused 
transmission  capacity  of  the  inter-node  links.  An 
appropriate  link  weight  function  associated  with  this 
estimation  was  proposed.  We  conducted  a  series  of  simulation 
runs  to  investigate  the  behavior  and  performance  of  this 
function.  The  simulation  results  show  that  when  a  proper 
updating  period  is  employed,  the  proposed  function  allows 
dynamic  routing  to  produce  desired  path  assignments  for 
achieveing  maximum  network  throughput.  The  results  also 
show  that  when  routing  is  not  performed  frequently  enough, 
the  network  becomes  unnecessary  congested  and  affects 
traffic  throughput  because  the  old  routing  is  used.  This  is 
especially  true  in  the  cases  of  heavy  traffic  when  the 
traffic  patterns  change  quickly. 
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We  conclude  that  the  proposed  link  weight  function  with 
an  efficient  dynamic  routing  algorithm  using  a  proper 
updating  period  will  maintain  maximum  network  throughput  at 
various  traffic  intensities  before  the  network  is  heavily 
loaded . 


APPENDIX  A 

THE  DIJKSTRA  SHORTEST  PATH  ALGORITHM 


DIJKSTRA  proposed  a  labeling  algorithm  to  find  the 
shortest  path  between  two  specific  nodes  in  a  graph  in  1959. 
His  algorithm  requires  one  to  know  the  graph  topology  and 
all  distances  between  each  pair  of  nodes. 

Initially,  no  paths  are  known,  all  labels  are  tentative, 
so  all  nodes  are  labeled  with  infinity.  As  the  algorithm 
proceeds,  each  node  is  labelled  with  its- distance  from  the 
source  node  along  the  shortest  path.  When  it  is  discovered 
that  a  label  represents  the  shortest  possible  path  from  the 
source  to  that  node,  it  is  made  permanent.  This  iterates 
until  all  of  the  mininum  distance  paths  have  been 
identified. 

In  this  thesis,  th<_  DIJKSTRA  algorithm  is  implemented  as 
the  successive  calculation  of 

Dij  =  Min  <Dij  ,  Min  (Dik  ♦  Dk j ) > 

k 

for  each  pair  of  nodes  in  the  network,  where  Dij  represents 
the  distance  from  node  i  to  node  j . 


APPENDIX  B 

THE  YEN  SHORTEST  PATH  ALGORITHM 


YEN  J.Y.  proposed  a  decentralized  alogorithm  for  finding 
the  shortest  paths  in  communications  networks  in  1979.  His 
algorithm  requires  little  information  exchanged  between 
nodes  and  no  global  knowledge  of  the  topology  of  the  routes. 
The  necessary  assumptions  for  using  the  algorithm  are  as 
follows : 

1.  Each  node  in  the  network  has  processing  capability 
and  a  timing  device  called  clock,  and  knows  correct 
t  ime . 

2.  Each  node  sends  its  updated  message  independently. 

3.  Transit  delay  is  neglected. 

In  an  N-node  directed  network  (see  Figure  B.l),  we 
define  (J,K)  to  be  the  link  connecting  node  J  to  node  K, 
YEN(J,K)  to  be  the  distance  of  the  tentative  shortest  path 
from  node  J  to  node  K,  CLOCK(J,K)  to  be  the  time  represents 
the  corresponding  value  of  YEN(J,K),  and  DISTANCE( J , I )  to 
be  the  distance  from  node  J  to  node  I. 

The  following  steps  briefly  describe  his  algorithm: 

step  1  :  Initially,  all  YEN(J,K)'s  and  CLOCK(J,K)'s  are 

set  to  a  large  positive  number  (say  999999). 

step  2  :  At  time  0,  the  destination  node  K  sends  each  of 

its  neighbor  node  a  message  "K" . 

step  3  :  On  receiving  "K"  from  node  I,  each  node  J  will 
1.  label  the  node  (node  I)  that  has  just  sent  the 
message  and  delete  it  from  its  update 
transmission  list. 
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2.  update  YEN(J,K)  by 

YEN(J.K)  =  Min (YEN (I ,K )♦ DI STANCE (J, I) ,  YEN ( J , K ) ) 
and  set  CLOCK(J,K)  to  the  value  of  the  updated 
YEN(J,K) . 

3.  At  time  CLOCK(J,K),  node  J  sends  the  message 
"K"  to  neighbors  on  its  update  transmission 
list . 

step  4  :  Repeat  step  3  until  message  "K"  has  reached  all  the 
nodes  in  the  network.  This  can  be  done  by  specifying  a 
maximum  possible  time  for  message  "K"  to  travel. 

At  the  conclusion  of  the  algorithm,  each  node  J  has  the 
identity  of  the  next  node  (node  I)  on  the  shortest  path  from 
node  J  to  node  K  with  the  optimal  shortest  distance 
YEN(J,K) . 


APPENDIX  C 

ESTIMATION  OF  TRANSMISSION  CAPACITY 


The  objective  of  estimating  the  available  number  of 
channels  between  two  nodes  in  a  network  is  to  allow  the 
distributed  routing  algorithm  to  produce  desirable  path 
assignments  and  achieve  high  throughput  efficiency.  In  other 
words,  when  the  overall  traffic  is  not  heavy,  the  algorithm 
reduces  unnecessary  local  congestion  due  to  statistical 
peaking  of  traffic  intensities  at  some  nodes  and  not  the 
others.  When  more  traffic  enters  the  network,  the  dynamic 
routing  uses  the  estimation  result  to  distribute  traffic 
evenly  to  maintain  high  throughput  in  the  network.  When 
excessive  traffic  enters  the  network,  it  spreads  the 
congestion  throughout  the  entire  network. 

As  discussed  in  the  thesis,  a  TDMA/CDMA  scheme  is  used 
for  each  node  to  share  a  common  broadcast  RF  frequency  in 
packet  radio  networks.  A  virtual  circuit  is  established  for 
each  voice  conversation.  Each  virtual  circuit  needs  a  pair 
of  time  slots  on  each  link  and  requires  one  link  or  a  series 
of  links  from  a  calling  node  to  a  destination  node.  The 
slots  associated  with  each  virtual  circuit  will  be  reserved 
for  the  duration  of  the  conversation. 

Since  every  node  is  listening  to  its  neighbors  in  any 
slot  in  which  it  is  not  transmitting,  a  node  can  infer  a 
great  deal  about  its  neighbor's  transmit  slot  assignment. 
This  is  the  crucial  point  in  the  following  derivation. 

Consider  a  case  where  two  received  signals  could  be 
stacked  in  a  slot  and  consider  the  following  analysis. 
First  of  all,  we  define  three  terms:  N*,Xg  and  Rg.  These 
quantities  are  measured  at  node  A. 


1.  Na  =  Number  of  empty  slots  at  node  A  in  which  node  B 
is  not  transmitting 

2.  XB  =  Actual  number  of  slots  in  which  node  B  is 
transmitting 

3.  RB  =  Number  of  slots  in  which  node  B  is  receiving 

Without  exchanging  information  with  node  B,  node  A  does 

« 

not  know  exactly  about  Rg  value;  it  therefore  estimates 
possible  Rg  values  based  on  the  Xg  value.  Assuming  12  slots 
per  frame  and  2  received  signals  could  be  stacked  in  a  slot, 
then 

1.  [X  ♦  1]  for  1  £  X  £  6 

B  B  B  B 

------ 

2.  [X  ♦  1  ]  S  R  i  12  •  X  for  6  <  X  S  8 

B  B  B  B 

----- 

[  ]  =  Truncation  to  integer  value 

An  example  is  given  in  Figure  C.l  to  clarify  these 
definitions . 

Have  Rg  slots  uniformly  distributed  over  Ng  =  (12  -  Xg) 

possible  slots  at  node  B,  then 

(  Nb\ 

1.  there  are  I  ]  different  patterns, 

Rb  , 

2.  each  pattern  is  equally  likely. 


Node  B 


X 


X 


X 


X 


1 1 


R  X  X  R  R 

R  |  |  I 

5  6  7  8  9  10  11  12 


Node  A 


1 

2 

3 

4  5  6 

7 

8  9  10  11  12 

R  a 

Receive 

X 

=  Transmit 

X 

B 

=  4 

N 

A 

=  5 

R 

B 

=  2 

,3,4 

In 

this 

example,  R 

B 

3 

In  general,  there  exists ^  ^  /(  g  Y  /  patterns 

B 

The  probability  of  Y  slots  in  NA  (i.e.  that  Y  receive  slots 
at  node  B  overlap  the  empty  slots  of  node  A)  is  hence  given 


N  \  /  N  -  N  > 
A]  B  A 


Cl 


Prob  {Y  /  R  ,  X  ,  N  }  =, 
B  B  A  / 


R  -  Y 
B 


B  \  ,  0  £  Y  £  N  and 

l  /  A 

B  N  -(N  -  R  )<  Y  S  R 

ABB  B 


v  0  ,  otherwise 

Since  each  pattern  is  equally  probable,  the  average  number 
of  receive  slots  of  node  B  which  overlap  slots  at  node  A  in 
the  set  {  Na  )  is  given  as 

E  {Y/R  ,  X  ,  N  }  =  2  Y  Prob{ Y/R  ,  X  ,  N  } 

B  B  A  B  B  A 

all  Y 

If  we  average  also  over  Rg (assuming  each  of  its  allowable 
values  is  equally  likely),  we  have 


Y  =  E  (Y/X  ,  N  } 
B  A 


2  E{ Y/R  ,  X  ,  N  ) 
B  B  A 

x'-ix  +  lj" 

B  B 


2  E{ Y/R  ,  X  ,  N  ) 
B  B  A 

x~-"[x~+"ii 


for  1  S  X  <6 
B 


for  6  <  X  <8 
B 


Finally,  the  number  of  channels  in  which  A  can  transmit  to 
B,  given  X(j  and  Na  ,  is  given  by 


C  =  N  -  Y 
B/A  A 

It  is  worth  noting  that 

C  =  C  =  K 
B/A  A/B 

does  not  imply  that  K  circuits  can  be  established. 
This  can  be  best  explained  by  example  (Figure  C.2) 


Figure  C.2  Possible  Arrangment  for  Circuits 


Given  C  =  C  =3,  only  one  circuit  could  be  established. 
B/A  A/B 


The  link  congestion  level  measured  at  node  A  from  node  A  to 
node  B  can  then  be  estimated  by  the  following  relationship 

C . LEVEL(B , A)  =  Const  /  C 

B/A 


Where  Const  is  an  arbitrary  constant. 


This  inverse  relationship  has  a  highly  varying 
characteristic.  When  it  is  incorporated  in  the  link  weight, 
it  imposes  a  high  penalty  to  the  congested  link  so  that  new 
path  would  be  routed  to  bypass  the  congested  nodes.  In  this 
manner,  one  can  hope  to  maximize  the  system  throughput  and 
provide  the  desired  grade  of  service. 

C.LEVEL(B,A)  indirectly  measures  the  availablity  or  the 
transmission  capacity  of  the  link  connecting  node  A  to  node 
B.  Given  any  slot  depth,  it  is  always  possible  to  perform 
the  similiar  computation  for  the  C. LEVEL  between  a  pair  of 
nodes  with  any  X  and  N  by  applying  the  same  procedure. 


APPENDIX  D 

SIMULATION  PROGRAM  FOR  EVALUATING  TIME  SLOT  ASSIGNMENT 

ALGORITHM 


//SLOT  JOB  (3060,0203) SIMPLE' ,CLASS=C 
//-MAIN  0RG=NPGVM1 . 3060P 

//  EXEC  SIM25CLG , REGION . G0=4096K , PARM. G0=  MAP , SIZE=760K 
/ / SIM. SYSIN  DD  * 

»  » 

^EAMBLE 

NpRMALLY  MODE  IS  INTEGER 
Q^NERATE  LIST  ROUTINES 
TEMPORARY  ENTITIES . 

EVERY  MESSAGE  HAS  A  CKT. NUMBER,  A  TYPE,  AN  ORIGINATOR, 

A  DESTINATION.  A  FM. NODE , 

A  TO. NODE,  A  START. TIME,  A  SLOT . ARRIVAL ,  A  SLOT. ASSIGN, 
, ,A  RECSLOT ,  A  DIRECTION,  A  REATTEMPT 

REFINE  START. TIME  AS  A  REAL  VARIABLE 

I  » 

EVENT  NOTICES  INCLUDE  REQUEST . FOR . SVC , 

RESPONSE . TO . REQUEST , 

UPSTREAM . BREAK . DOWN ,  NEW . CALL , 

,,  DOWNSTREAM. BREAK. DO&N  AND  HALT . SIMULATION 

EVERY  REQUEST. FOR. SVC  HAS  A  MSG1 
EVERY  RESPONSE. TO. REQUEST  HAS  A  MSG2 
EVERY  UPSTREAM . BREAK /DOWN  HAS  A  U.B.D.MSG 
,,  EVERY  DOWNSTREAM . BREAK . DOWN  HAS  A  D.B.D.MSG 

»  t 

PRIORITY  ORDER  IS  UPSTREAM . BREAK . DOWN , 

, ,  DOWNSTREAM . BREAK . DOWN , AND  HALT . SIMULATION 

»  » 

DEFINE  INFO  AS  A  3 -DIMENSIONAL  INTEGER  ARRAY 
DEFINE  SPECINFO  AS  A  2-DIMENSIONAL  INTEGER  ARRAY 
DEFINE  SLOTS. PER. FRAME  AS  A  1 -DIMENSIONAL  INTEGER  ARRAY 
DEFINE  SLOT. DEPTH  AND  N  AS  INTEGER  VARIABLES 
DEFINE  CALLED. NODE  AND  CALLING. NODE  AS  INTEGER  VARIABLES 
DEFINE  PRNT. COUNTER  AS  AN  INTEGER  VARIABLE 
DEFINE  CKT . GENERATED ,  CKT.ESTAB,  CKT. FAILED,  CKT . SUM 
AND  CKT . DISESTAB  AS  INTEGER  VARIABLES 
DEFINE  UP. ROUTE  AND  DOWN. ROUTE  AS  INTEGER  VARIABLES 
DEFINE  PRNT  AS  AN  INTEGER  VARIABLE 
DEFINE  TEST. DURATION,  SLOT . DURATION , 

MEAN . SYS . CALL . ARRIV , 

AND  MEAN. CALL. DURATION  AS  REAL  VARIABLES 
DEFINE  NODAL. MEAN. CKT.ESTAB  AS  A  REAL  VARIABLE 
DEFINE  FAIR. POINTER  AS  AN  INTEGER  VARIABLE 
DEFINE  LONG-TIME. EST,  AVG . P . BD ,  LONG . P . BD ,  AVG.C.BD, 

LONG . C . BD  AND 

AVG. TIME. EST  AS  REAL  VARIABLES 
DEFINE  CKT. LONG. TIME. EST  AS  AN  INTEGER  VARIABLE 
DEFINE  MAX. CKT  AS  AN  INTEGER  VARIABLE 

DEFINE  SUM. BD. TIME,  AVG. BD. TIME,  TOT.P.BD  AND  TOT.C.BD 


AS  REAL  VARIABLES 

DEFINE  CKTS.BD  AS  AN  INTEGER  VARIABLE 
DEFINE  FRACT . LOST . CALL  AND  FRACT . SUCCESSFUL. CALL 
AS  REAL  VARIABLES 

DEFINE  C.BD. COUNTER  AND  P.BD. COUNTER 
AS  INTEGER  VARIABLES 

DEFINE  SUM. DURATION  AND  CALL. DURATION  AS  REAL  VARIABLES 

DEFINE  DELAY. SUM  AND  AVG. DURATION  AS  REAL  VARIABLES 

DEFINE  PRNT . INTERVAL  AS  A  REAL  VARIABLE 

DEFINE  OFFERED. TRAFFIC  AS  AN  INTEGER  VARIABLE 

DEFINE  BREAKTIME  AS  A  REAL  VARIABLE 

DEFINE  MAX. ATTEMPT  AS  AN  INTEGER  VARIABLE 

DEFINE  PARTIAL . BREAKDOWN  TO  MEAN  3 

pfFINE  FULL. BREAKDOWN  TO  MEAN  4 

END  ' ’ PREAMBLE 


&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 


M^IN 


LET  LINE . V  =  80 
^ART  NEW  PAGE 


;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$; 


RESULTS  OF  SIMULATION 


;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$:?$$$$$* 


THE  MAIN  PROGRAM  CALLS  INPUT . DATA  ROUTINE  THAT  SETS 
INPUT  PARAMETERS  AND  INTIALIZATION  VARIABLES 
FOR  ALL  RUNS  OF  SIMULATIONS. 


LET  PRNT. COUNTER  =  0 
V^T  FAIR. POINTER  =  1 


PERFORM  FRESH .INPUT 

RESERVE  INFOX'i  *  *)  AS  (20  +  N  )  BY  12  BY 
RESERVE  SPECIN^Q?*,*)  AS  (20  ♦  N)  BY  12 

RP.l.F.ARF.  SFm 


RELEASE  SEED. V(* 
SERVE  SEED . V(* 

LET  SEED.V(l)  = 
LET  SEED. Vi  2 1  = 
LET  SEED .  Vi  3  = 

LET  SEED.  Vl’4  )  = 
LET  SEED. V( 5 j  = 
LET  SEED. Vi  6  = 

LET  SEED.V(7  = 
LET  SEED. VC 8)  = 
LET  SEED. V( 9  1  = 
LET  SEED. V( 10)  = 


AS  10 


2116429302 
683743814 
964393174 
1217426631 
618433579 
1157240309 
15726055 
48108509 
1797920909 
=  477424540 


PRINT  2  LINES  WITH  ((N  ♦  1)  *  2) 

AND  SLOT. DEPTH  AS  FOLLOWS 
THE  NUMBER  OF  NODES  IN  THE  SYSTEM  ARE  ** 
THE  SLOT  DEPTH  NOW  IS  ** 

$$IP  2  OUTPUT  LINES 


INFO (NODE, SLOT .INDEX)  =  INTEGER  VALUE 

NODE  DENOTES  NODE  NUMBER 
SLOT  DENOTES  SLOT  NUMBER 


INDEX 
INDEX 
INDEX 
INDEX  =  3 
INDEX  =  4 


=  0 
=  1 
=  2 


EMPTY  SLOT 

TRANSMITS  SLOT  WITH  CIRCUIT  NUMBER 
RECEIVERS  SLOT 
NODE  NUMBER 

NUMBER  OF  RECEIVE  SIGNALS 


SCHEDULE  A  NEW. CALL  NOW 

99HEDULE  A  HALT. SIMULATION  AT  TEST . DURATION 

9 7 ART  SIMULATION 

SKIP  2  OUTPUT  LINES 
PRINT  1  LINE  AS  FOLLOWS 

PJE  PROGRAM  HAS  COME  TO  THE  END  OF  THE  SIMULATION 

STOP 

W® 


t |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
$9UTINE  FOR  FRESH. INPUT 

’ '  THIS  ROUTINE  SETS  ALL  INPUT  VARIABLES  IN  ORDER  TO 
; ;  BEGIN  THE  SIMULATION 


9£T  PRNT  =  5 

'  PRNT  HELPS  IN  DEBUGGING  THE  SOFTWARE  AND  PROGRAM  LOGIC 


0  ==  PRINT  EACH  PROCESS 

1  ==  PRINT  SLOT  ASSIGNMENT  AT  EACH  NODE 

2  ==  SELECTIVE  PRINTING 

INPUT  DATA 

LET  OFFERED. TRAFFIC  =  6 
LET  N  =  3 

LET  SLOT. DEPTH  =  2 

LET  MAX. ATTEMPT  =  4 

LET  TEST . DURATION=  400.00 

LET  SLOT . DURATION=  0.000010417 

LET  MEAN. CALL. DURATION  =  20.0000 

LET  NODAL . MEAN . CKT . ESTAB  =  (MEAN . CALL . DURATION  *  2-0)  / 

REAL . F (OFFERED . TRAFFIC ) 

LET  MAX. CKT  =  300 

£fT  PRNT . INTERVAL  =  30.00000 


; ;  INITIALIZATION 

LET  TIME . V  =  0.000000000 
LET  CKT . GENERATED  =  0 
LET  CKT.DISESTAB  =  0 
LET  CKT. SUM  =  0 
LET  CKT. ESTAB  =  0 
LET  MEAN. SYS. CALL. ARRIV  = 

LET  FRACT. SUCCESSFUL. CALL 
LET  FRACT. LOST. CALL  =0.0 
LET  UP. ROUTE  =  0 
LET  DOWN. ROUTE  =  0 

LET  BREAKTIME  =  13.0  *  SLOT . DURATION 


NODAL . MEAN . CKT . ESTAB  /  2.0 
=  0.0 
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LET  SUM. DURATION  =0.0 

LET  AVG. DURATION  =0.0 

LET  LONG. TIME. EST  =0.0 

LET  AVG. TIME. EST  =0.0 

LET  AVG.P.BD  =  0.0 

LET  AVG.C.BD  =0.0 

LET  LONG . C . BD  =0.0 

LET  LONG . P . BD  =0.0 

LET  CKT. LONG. TIME. EST  =  0.0 

LET  AVG. BD. TIME  =0.0 

LET  SUM. BD. TIME  =  0.0 

LET  CKTS.BD  =  0 

LET  P.BD. COUNTER  =  0 

LET  C.BD. COUNTER  =  0 

LET  TOT. P.BD  =  0.0 

LET  TOT. C.BD  =  0.0 

LET  CKT. FAILED  =  0 

LET  AVG. DURATION  =0.0 

£fT  DELAY. SUM  =0.0 

PRINT  5  LINES  WITH  TEST . DURATION .  SLOT. DURATION, 

NODAL. MEAN. CKT. E STAB. 

MEAN. CALL. DURATION,  AND  PRNT . INTERVAL 

AS  FOLLOWS  _  ,, 

THE  SIMULATION  WILL  RUN  FOR  ***.**  SECS 
THE  DURATION  OF  A  TIME  SLOT  IS  **********  SECS 
THE  MEAN  GENERATION  TIME  OF  A  NEW  CALL  *****  SECS 
THE  MEAN  DURATION  TIME  OF  A  CIRCUIT  IS  ******  SECS 
THE  PROGRAM  WILL  PRINT  RESULTS  EVERY  ********  SECS 
$£IP  2  OUTPUT  LINES 


RETURN 


FRESH. INPUT 


»  » 
f  « 
*  t 
t  * 
»  t 


&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 


£YENT  NEW. CALL  SAVING  THE  EVENT  NOTICE 


'  '  THIS  EVENT  GENERATES  CALL  AND  SENDS  REQUEST  FOR 
;  ;  service  FROM  A  CALLING  NODE  TO  A  CALLED  NODE 


IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS 
NEW  CALL  GENERATED  AT  TIME  *********** 
SKIP  2  OUTPUT  LINES 
ALWAYS 


SECS 


DEFINE  DELAY 1 , PROB , AGGREG ATE. PROB  AS  REAL  VARIABLES 
DEFINE  ORG . NODE ,  AGGREGATE . NODE  AND  DEST . NODE 
AS  INTEGER  VARIABLES 


’ '  N  IS  THE  NUMBER  OF  AGGREGATE  NODES  CONNECTED  TO 
; ;  a  node 

LET  CKT . GENERATED  =  CKT . GENERATED  +  I 
VfT  CKT. SUM  =  CKT. SUM  +  1 

IF  CKT. SUM  GE  MAX. CKT 

PRINT  2  LINES  WITH  TIME.V  AND  MAX. CKT  AS  FOLLOWS 
NUMBER  OF  CKTS  ATTEMPTED  EXCEEDS  THE  TOTAL  NO  OF  CKTS 


****  PERMITTED  .  SIMULATION  HALTED  AT  ****.***  SEC 
,$RIP  1  OUTPUT  LINE 

PERFORM  TERMINATION 
RETURN 
4VWAYS 

SCHEDULE  A  NEW. CALL  AT, 

time.v  +  EXPONENTIAL. F (MEAN. SYS. CALL. ARRIV, 5) 

; ;  SELECT  A  TRANSMIT  NODE 
V£T  ORG . NODE  =  RANDI . F(1 ,2 , 1) 


LET  PROB  =  UNIFORM. F (0.0, 100.0,6) 

5fT  AGGREGATE . PROB  =  REA£.F(N)  *  100.00  /  REAL . F(N  ♦  1) 

; ;  SELECT  A  RECEIVE  NODE 

IF  PROB  GE  AGGREGATE . PROB 
IF  ORG. NODE  EQ  1 
LET  DEST . NODE  =  2 
LET  CALLED. NODE  =  2 

AT  WAV'; 

IF  ORG. NODE  EQ  2 
LET  DEST. NODE  =  1 
LET  CALLED. NODE  =  1 

AT  WAV*, 

GO  TO  OUT. NODE 
4VWAYS 

(^ET  AGGREGATE . NODE  =  RANDI .F(1,N,2) 

IF  ORG. NODE  EQ  1 

LET  DEST. NODE  =  20  +  AGGREGATE . NODE 
LET  CALLED. NODE  =  2 

AT  UAY<? 

IF  ORG. NODE  EQ  2 

LET  DEST. NODE  =  10  +  AGGREGATE . NODE 
LET  CALLED. NODE  =  1 
ALWAYS 


J  QUT . NODE ’ 

PRINT  1  LINE  WITH  CRT . SUM , ORG . NODE , DEST . NODE 

^  ^  AND ,  TIMfi  .  V  AS  FOLLOWS  ^  , 

CIRCUIT  ***  FROM  NODE  **  TO  NODE  **  BEGUN  AT  ******** 
f pKIP  2  OUTPUT  LINE 

V$T  UP. ROUTE  =  UP. ROUTE  +  1 

FOR  J  =  1  TO  12  ,  DO 

IF  INFO (ORG. NODE, J,l)  EQ  0  AND  INFO (ORG. NODE, J, 4)  EQ  0 
AND  ;NFO (CALLED. NODE /J, 1)  EQ  0 


GO  TO  ONI 
^VWAYS 

V90P 

IF  PRNT  EQ  0 

PRINT  3  LINES  WITH  ORG . NODE , CALLED . NODE  AND  CRT. SUM 

AS  FOLLOWS 

NO  MUTUALLY  AVAILABLE  SLOTS  BETWEEN  ORIG.NODE  ** 

AND  CALLED  NODE  **  TO  CARRY  THE  REQUEST  SERVICE  MESSAGE 
FOR  CIRCUIT  NUMBER  ***** 

SRIP  1  OUTPUT  LINE 
WAYS 


LET  CKT. FAILED  =  CKT. FAILED  +  1 
LET  UP. ROUTE  =  UP. ROUTE  -  I 
LET  P.BD. COUNTER  =  P.BD. COUNTER  ♦  I 
99  TO  LAST . NEW . CALL 

' '  SELECT  A  CURRENT  SLOT  RANDOMLY 
AND  CONTINUE  PROCESSING 

!9N1' 

^T  CURRENT.  SLOT  =  RANDI .  F  ( 1 , 12 , 3  ) 

t  » 

; ;  FINDS  THE  NEXT  MUTUALLY  AVAILABLE  SLOT 


LET  SLOT1  =  0 
V|T  FRAME 1  =  0 

IF  CURRENT. SLOT  EQ  12 
GO  TO  NEXT. FRAME! 

ALWAYS 

V£T  K  =  CURRENT. SLOT  +  1 
FOR  J  =  K  TO  12  ,  DO 

IF  INFO (ORG. NODE. J,l)  NE  0  OR  INFO (ORG. NODE, J,4 
LET  SPECINFO (OrQ . NODE , J )  =  0 
ALWAYS 

IF  SPECINFO (ORG. NODE. J)  EQ  6 

AND  INFO ( CALLED. nOdE.JjTI)  EQ  0  AND 
INFO (ORG. NODE, J,l)  EQ  6  AND  INFO (ORG. NODE, J 
LET  SLOT1  =  J 

LET  SPECINFO (ORG. NODE, J)  =  0 
GO  TO  ON2 
ALWAYS 

V90p 

LET  FRAME 1  =  1 

FOR  J  =  1  TO  CURRENT. SLOT  ,  DO 

IF  INFO (ORG. NODE, J.l)  NE  0  OR  INFO (ORG. NODE, J, 4 
LET  SPECINFO (OR6 . &ODE , J )  =0 
ALWAYS 

IF  SPECINFO (ORG. NODE, J 
INFO (CALLED. NODE. J  ' 

INFO (ORG. NODE, J,l) 

LET  SLOT1  =  J 
LET  SPECINFO (ORG. NODE, J)  =  0 
GO  TO  ON2 
ALWAYS 
V9°p 

LET  FRAME 1  =  0 
FOR  J  =  K  TO  12  ,  DO 

IF  INFO (ORG. NODE, J,l)  EQ  0  AND  INFO (ORG . NODE , J , 
AND  INFO (CALLED. NODE; J,l)  EQ  0 
LET  SLOT1  =  J 
GO  TO  ON2 
ALWAYS 
V9°p 

LET  FRAME 1  =  1 
FOR  J  =  1  TO  CURRENT . SLOT , 


■:i\  18 1 

EQ  0  AN 


AND 

AND 


AND  INFO (ORG. NODE, J, 


FOR  J  =  1  TO  CURRENT . SLOT .  DO 
IF  INFO (ORG. NODE, J,l]  EQ  6  AND  IN 
AND  INFO (CALLED. NODE /J - 1?  EQ  0 

«  nm  my  Ami  '  y  7  '  ' 


ND  INFO (ORG. NODE, J, 


LET  SL0T1  = 
GO  TO  ON2 
ALWAYS 
LOOP 


)  NE  0 

,4)  EQ  0 

)  NE  0 

4)  EQ  0 

4)  EQ  0 

4)  EQ  0 


86 


;  IjlEXT .  FRAME  1 ' 

LET  FRAME 1  =  1 
FOR  J  =  .1  TO  12 


IF  INFO (ORG. NODfi.J.l)  NE  0  OR  INFO (ORG. NODE, J,4)  NE  0 
LET  SPECINFO  (ORd.l&ODE.J)  =  0 
ALWAYS 

IF  SPECINFO (ORG. NODE, J)  EQ  6 

AND  INFO (CALLED. NODE. j;i)  EQ  0  AND 
INFO? ORG .NODE ,  J  ,  1 )  EQ  6  AND  INFO (ORG. NODE, J, 4)  EQ  0 
LET  SLOT1  =  J 

LET  SPECINFO (ORG. NODE, J)  =  0 
GO  TO  ON2 
ALWAYS 
V?op 

FOR  J  =1  TO  12.  DO  v 

IF  INFO (ORG . NODE , J , 1 )  EQ  0  AND  INFO (ORG. NODE, J, 4)  EQ  0 
AND  INFO ( CALLED . NODE  (J , 1 )  EQ  0 
LET  SLOT1  =  J 
GO  TO  ON 2 
ALWAYS 
V9°p 


PRINT  1  LINE  WITH  CRT. SUM  AS  FOLLOWS 
CIRCUIT  NO.****  FAILED  IN  EVENT  NEW  CALL 
9$IP  2  OUTPUT  LINES 

LET  CRT. FAILED  =  CRT. FAILED  +  1 
LET  UP. ROUTE  =  UP. ROUTE  -  1 
LET  P.BD. COUNTER  =  P.BD. COUNTER  +  1 
99  TO  LAST. NEW. CALL 

; :  ON2  IDENTIFIES  A  SLOT  TO  CARRY  THE  SERVICE  MESSAGE 
TO  THE  CALLED  NODE  AND  CREATES  THE  SERVICE  MESSAGE 


|9N2’ 

Q$EATE  A  MESSAGE 


LET  CRT. NUMBER (MESSAGE)  =  CRT. SUM 
LET  TYPE (MESSAGE!  =  1 
LET  ORIGINATOR (MESSAGE)  =  ORG. NODE 
LET  DESTINATION (MESSAGE)  =  DEST.NODE 
LET  FM. NODE (MESSAGE)  =  ORG. NODE 


CRT. SUM 


, _ ,)  =  ORG.  NODE 

LET  TO. NODE (MESSAGE)  =  CALLED. NODE 
LET  START. TIME (MESSAGE)  =  TIME.V 
LET  SLOT. ARRIVAL (MESSAGE)  =  SLOT1 
LET  SLOT.ASSIGNTmESSAGE!  =  SLOT1 
LET  RECSLOTTmESSAGE]  =  SLOT1 
LET  DIRECTION (MESSAGE)  =  0 
p?T  REATTEMPT (MESSAGE)  =  1 

IF  PRNT  EQ  0 

PRINT  2  LINES  WITH  SLOT1  AND  FRAME 1  AS  FOLLOWS 
SLOT  **  OF  FRAME  **  WAS  USED  TO  CARRY  REQUEST  FOR  SERVICE 
FROM  CALLING  NODE  TO  THE  CALLED  NODE 
SRIP  1  OUTPUT  LINE 
ALWAYS 

’ ;  CALCULATES  WHEN  THE  SERVICE  MESSAGE  WILL  ARRIVE  AT 
; ;  THE  CALLED  NODE  AND  SCHEDULES  ITS  ARRIVAL 

LET  DELAY 1  =  (REAL. F( 12  *  FRAME 1  ♦  SLOT1  -  CURRENT . SLOT) ) 
*  SLOT. DURATION 


IF  PRNT  EQ  0 
PRINT  2  LINES 


WITH  CKT. SUM, CALLED. NODE  AND 
(TIME . V  ♦  DElAYl)  AS  FOLLOWS 
HAS  SCHEDULED  AN  REQUEST 


CIRCUIT  NO.  *****  HAS  SCHEDULED  AN  REQUE 
AT  NODE  **  AT  TIME  ****.******  SECS 
.SKIP  2  OUTPUT  LINES 
^WAYS 

SCHEDULE  A  REQUEST . FOR . SVC  GIVEN  MESSAGE 
,,  AT  TIME . V  +  DELAY1 

; VAST. NEW. CALL' 

RETURN 

END  ^  NEW. CALL 


REQUEST  FOR  SVC 


' |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
WENT  REQUEST.  FOR.  SVC  GIVEN  MSG1 

' '  THIS  EVENT  SIMULATES  ACTIONS  PERFORMED  AT  A  CALLED 
node  AFTER  RECEIVING  AN  REQUEST  FOR  SERVICE  FROM  A 
; ;  calling  NODE 

VST  MESSAGE  =  MSG1 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS  . 

REQUEST. FOR. SVC  PERFORMED  AT  TIME  ****.****** 

SKIP  2  OUTPUT  LINES 
ALWAYS 

IF  PRNT  EQ  0 
PRINT  2  LINE  AS  FOLLOWS 
ATTRIBUTES  OF  MESSAGE  ENTITY  AT 
THE  START  OF  REQUEST . FOR . SVC  ARE: 

LIST  ATTRIBUTES  OF  MESSAGE 
, §KIP  2  OUTPUT  LINES 

4VWAYS 

VSFINE  DELAY2  AND  DELAYR  AS  REAL  VARIABLES 
LET  FRAME. REC  =  0 

LET  CURRENT. SLOT  =  SLOT .ARRIVAL (MESSAGE) 

LET  CALLING. NODE  =  FM. NODE  (MESSAGE) 

LET  CALLED. NODE  =  TO . NODE (MESS AGE) 

VfT  SLOT. REC  =  CURRENT. SLOT 

IF  INFO (CALLED. NODE, SLOT. REC, 4)  LT  SLOT. DEPTH  AND 
INFO (CALLED. NODE, SLOT. REC, 1)  EQ  0 
GO  TO  OKI 
A V WAYS 

IF  REATTEMPT (MESSAGE)  LT  MAX. ATTEMPT 
LET  REATTEMPT (MESSAGEJ  =  REATTEMPT (MESSAGE)  ♦  1 
,VET  SLOT. USED  =  SLOT. REC 


kY- 

T.REC 


EQ  0 


MAX. ATTEMPT 
REATTEMPT (MESSAGE ) 


LET  FRAMER  =  1 

FOR  IR  =  (SLOT. USED  +  1)  TO  12.  DO 
IF  INFO (CALLING. NODE, IR,1 )  NE  6  OR 
INFO (CALLING. NODE. IR! 4)  NE  0 
LET  SPECINFO( CALLING. nOdE.IR)  =  0 
ALWAYS 

IF  SPECINFO( CALLING. NODE .IR)  EQ  6  AND 
INFO (CALLED. NODE ,IR, 1)  EQ  0  AND 
INFO ( CALLING. NODfe, I A, 1)  EQ  0  AND 


INFO (CALLING . NODE , IR , 4 )  EQ  0 
LEX  SLOTR  =  IR 

LET  SPECINFO( CALLING . NODE, IR)  =  0 
GO  TO  MORE. ATTEMPT 
ALWAYS 

,v°°p 


IF  SLOT. USED  EQ  1 
GO  TO  XX 
ALWAYS 


LET  FRAMER  =  2 

FOR  JR  =  1  TO  (SLOT. USED 

IF  INFO (CALLING. NODE, JR, 


(SLOT. USED  -  1),  DO 
IF  INFO (CALLING. NODE, JR, I)  NE  0  OR 
INFO (CALLING. NODE, JR. 41  NE  0 
LET  SPECINFO( CALLING. NODE, JR)  =  0 
ALWAYS 

IF  SPECINFO( CALLING. NODE, JR)  EQ  6  AND 
INFO (CALLED. NODE, JR, 1)  EQ  0  AND 
INFO (CALLING. NODE, JR, 1)  EQ  0  AND 
INFO (CALLING. NODE, JR, 4)  EQ  0 
LET  SLOTR  =  JR 

LET  SPECINFOT CALLING. NODE, JR)  =  0 
GO  TO  MORE. ATTEMPT 
ALWAYS 
,VOOP 


LET  FRAMER  =  1 

FOR  IR  =  (SLOT. USED  +  1)  TO  12.  DO 
IF  INFO (CALLING. NODE, IR,1 )  EQ  6  AND 
INFO (CALLING. NODE, IR, 4) 

EQ  0  AND  INFO (CALLED. NODE, IR,1)  EQ  0 
LET  SLOTR  =  IR 
GO  TO  MORE. ATTEMPT 
ALWAYS 

.  V°op 


IF  SLOT. USED  EQ  1 
GO  TO  XX 
ALWAYS 


LET  FRAMER  =  2, 

FOR  JR  =  1  TO  (SLOT. USED 
IF  INFO (CALLING. NODE, JR 
INFO ( CALLING . NODE . JR 
EQ  0  AND  INFO (CALLED 
LET  SLOTR  =  JR 
GO  TO  MORE. ATTEMPT 
ALWAYS 
LOOP 

QO  TO  XX 


,JR,Jj  0 
(.ED !  NODE ,  JR , 


1)  EQ  0 


; MORE. ATTEMPT' 


LET  DELAYR  =  (REAL. F( SLOTR  -  SLOT. USED)  +  FRAMER  *  12.0) 
*  SLOT. DURATION 
LET  RECSLOT (MESSAGE)  =  0 
LET  DIRECTION(MESSAGE)  =  0 
LET  SLOT. ASSIGN (MESSAGE)  =  SLOTR 
VET  SLOT. ARRIVAL (MESSAGE)  =  SLOTR 


SCHEDULE  A  REQUEST . FOR . SVC  GIVEN  MESSAGE 
AT  TIME . V  ♦  DELAYR 


.V  ♦  DELAYR 


RETURN 

^VWAYS 


\.>V -V;V«\  V,*  ’*■ 


IF  PRNT  EQ  0 

PRINT  3  LINES  WITH  CRT. NUMBER ( MESSAGE), 
ORIGINATOR(MESSAGE) ,  DESTINATION (MESSAGE) . 

TIME.V,  TO (NODE (MESSAGE)  AND  FM. NODE (MESSAGE) 

AS  FOLLOWS 

CIRCUIT  ****  FR  NODE  **  TO  **  BROKEDOWN  AT  ****.****** 
DUE  TO  NO  MUTUALLY  AVAILABLE  SLOT  BETWEEN  THE  CALLED 
NODE  **  AND  THE  CALLING  NODE  ** 

SKIP  2  OUTPUT  LINE 
ALWAYS 

;^xit’ 

LET  CKT. FAILED  =  CKT. FAILED  +  I 
V?T  UP. ROUTE  =  UP. ROUTE  -  1 

IF  FM. NODE (MESSAGE)  EQ  ORIGINATOR (MESSAGE) 

LET  P.BD. COUNTER  =  P/BD.  COUNTER  +  I 
DESTROY  THE  MESSAGE  CALLED  MESSAGE 
RETURN 
i^WAYS 

LET  DOWN. ROUTE  =  DOWN. ROUTE  +  1 
LET  TYPE (MESSAGE)  =  PARTIAL. BREAKDOWN 
LET  DIRECTI0N(MESSAGE7  =  3 
V£T  START. TIME (MESSAGE)  =  TIME.V 

SCHEDULE  A  DOWNSTREAM. BREAK . DOWN  GIVEN  MESSAGE 
AT  TIME.V  +  BREAKTIME 

, Return 

; ;  FIND  THE  NEXT  MUTUALLY  AVAILABLE  SLOT 
;9K1’ 

LET  SLOT2  =  0 
9£T  FRAME2  =  0 

IF  CURRENT. SLOT  EO  12 
GO  TO  NEXT . FRAME* 

ALWAYS 

^T  L  =  CURRENT.  SLOT  +  1 

FOR  J  =  L  TO  12  .  DO 
IF  INFO (CALLED. NODE, J, 

INFO (CALLED . NODE , J , 

LET  SPECINFO (CALLED. ' 

ALWAYS 

IF  SPECINFO (CALLED. NODE, J)  EQ  6  AND 
INFO (CALLING. NODE, J. 1)  EQ  0  AND 
INFO (CALLED. NODE, J,1 I  EQ  0  AND 
INFO (CALLED. NODE, J, 4  EQ  0 
LET  SPECINF07cALLE£).^0DE, J)  =  0 
LET  SLOT2  =  J 
GO  TO  OK 2 
ALWAYS 

V9°p 

LET  FRAME 2  =  1 

FOR  J  =  1  TO  CURRENT . SLOT ,  DO 
IF  INFO (CALLED. NODE, J,l)  NE  0  OR 
INFO (CALLED . NODE ,J , 4 J  NE  0 
LET  SPECINFO  (CALLEf) .  ftODE  ,  J )  =  0 
ALWAYS 


IF  SPECINFO (CALLED. NODE. J)  EQ  6  A 
INFO (CALLED. NODE, J,l)  EQ  0  AND 


AND 


INFO (CALLED. NODE 
INFO (CALLED. NODE 


AND 


90 


LET  SPECINFO (CALLED. NODE, J) 
LET  SLOT2  =  J 
GO  TO  OK2 
ALWAYS 

V90P 

LET  FRAME 2  =  0 
FOR  J  =  L  TO  12,  DO 
IF  INFOTCALLED . NODE ,  J ,  1 )  EO  ( 
INFO ( CALLED . NODE , J .4  j  EQ  ( 
INFO  (CALLING.  NODfe,  Jr,  1)  EQ 
LET  SLOT2  =  J 
GO  TO  OK2 
ALWAYS 
V9°p 

LET  FRAME 2  =  1 

FOR  J  =  1  TO  CURRENT . SLOT ,  DO 
IF  INFO (CALLED. NODE, J, I )  EQ  ( 
INFO (CALLED. NODE. J’ 4)  EQ  ( 
INFO  (CALLING .  NOD£  ,  Jr ,  i  )  EQ 
LET  SLOT2  =  J 
GO  TO  OK2 
ALWAYS 
LOOP 

99  TO  YYY 

| tyEXT . FRAME2 ' 

LET  FRAME 2  =  1 
FOR  J  =  1  TO  12,  DO 
IF  INFO (CALLED. NODE, J,l)  NE  ( 
INFOi CALLED. NODE, J ,4 j  NE  ( 
LET  SPECINFO ( CALLED .  ifrODE , J ) 
ALWAYS 


)  0  AND 
5  0  AND 
SQ  0 


2  0  AND 
5  0  AND 
SQ  0 


,J,1)  NE  0  ( 
,J,4j  NE  0 
D.lfrODE,J)  = 


IF  SPECINFO (CALLED. NODE. J)  EQ  6  AND 
INFO (CALLED. NODE, J,lj  EQ  0  AND 


INFO ( CALLED . NODE , J , 1 J 
INFO (CALLED . NODE ’j! 41 
LET  SPECINFOTcALLEd.lfrODE 
LET  SLOT2  =  J 


f  0  AND 

r  o 

r)  =  o 


l  0  AND 
J  0  AND 
IQ  0 


GO  TO  OK2 
ALWAYS 
V9°p 

FOR  J  =  1  TO  12,  DO 
IF  INFO (CALLED. NODE, J,l)  EQ  0  AND 
INFO i CALLED. NODE ,J ,4)  EQ  0  AND 
INFO  CALLING. NODfc,Jr,l)  EQ  0 
LET  SLOT2  =  J 
GO  TO  OK2 
ALWAYS 
V9°p 
J  YYY' 

PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE )  AS  FOLLOWS 
CIRCUIT  ***"  FAILED  IN  EVENT  REQUEST . FOR . SVC 
flflP  1  OUTPUT  LINE 

99  TO  EXIT 

; ;  OK2  IDENTIFIES  A  SLOT  TO  CARRY  THE  SLOT  ASSIGNMENT 
AND  SENDS  REQUEST  BACK  TO  THE  CALLING  NODE  AND 
ALSO  COMPUTES  WHEN  THE  SERVICE  MESSAGE  WILL  ARRIVE 
'  AT  THE  CALLING  NODE 


LET  DELAY 2  =  (REAL. F( 12  *  FRAME 2  +  SL0T2  -  CURRENT . SLOT ) ) 
, ,  *  SLOT . DURATION 

;;  ASSIGNS  SLOTS, UPDATES  MESSAGE, AND 
' '  SCHEDULES  RESPONSE . TO . REQUEST 
'  AT  THE  CALLING  NODE 


LET  SLOT. ARRIVAL (MESSAGE)  =  SLOT2 
LET  SLOr.ASSIGNTMESSAGE)  =  SLOT.REC 
V9T  RECSLOT(MESSAGE)  =  SLOT.REC 

IF  PRNT  EQ  0 

PRINT  2  LINES  WITH  CRT. NUMBER (MESSAGE),  FM. NODE (MESSAGE) 
AND  (TIME . V  +  DELAY2)  AS  FALLOWS 
CIRCUIT  ****  HAS  SCHEDULED  A  RESPONSE  TO  SVC  AT  NODE  ** 
AT  TIME  ****  **** 
f^IP  2  OUTPUT  LINES 

PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  END  OF  REQUEST  FOR  SVC  ARE: 

LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  1  OUTPUT  LINE 
ALWAYS 

SCHEDULE  A  RESPONSE . TO . REQUEST  GIVEN  MESSAGE 
Af  TIME. V  +  DELAY 2 

RETURN 

£ND  ' 1  REQUEST  FOR  SERVICE 


J |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
£YENT  RESPONSE. TO. REQUEST  GIVEN  MSG2 

’ I  THIS  EVENT  SIMULATES  ACTIONS  PERFORMED  AT  A  CALLING 
'  NODE  AFTER  RECEIVING  AN  RESPONSE  TO  REQUEST 
’ '  FROM  A  CALLED  NODE 


V$T  MESSAGE  =  MSG2 
IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS 
RESPONSE. TO. REQUEST  PERFORMED  AT  TIME  **• 

SKIP  2  OUTPUT  LINES 

$£ways 

IF  PRNT  EQ  0 
PRINT  2  LINE  AS  FOLLOWS 
ATTRIBUTES  OF  MESSAGE  ENTITY 
AT  THE  START  OF  RESPONSE . TO . REQUEST  ARE: 
LIST  ATTRIBUTES  OF  MESSAGE 
,fKIP  2  OUTPUT  LINES 

ALWAYS 

PSFINE  DELAY 3  AND  DELAYR  AS  REAL  VARIABLES 
LET  FRAME. REC  =  0 

LET  CALLING. NODE  =  FM. NODE (MESSAGE) 

LET  CALLED. NODE  =  TO . NODE (MESSAGE) 

V?T  SLOT.REC  =  SLOT. ARRIVAL (MESSAGE) 

IF  INFO (CALLING. NODE, SLOT.REC,!)  EQ  0 


AND  INFO (CALLING. NODE, SLOT. REC, 4)  LT  SLOT. DEPTH 
TO  CORRECT 


EQ  6  AND 
0  AND 
0  AND 

)°=  o 


GO  TO  CORRECT 
, ALWAYS 

IF  REATTEMPT (MESSAGE)  LT  MAX. ATTEMPT 
LET  REATTEMPT (MESSAGE!  =  REATTEMPT (MESSAGE)  +  1 
(£ET  SLOT. USED  =  RECSLOT (MESSAGE) 

LET  FRAMER  =  1 

FOR  IR  =  (SLOT. USED  +  1)  TO  12.  DO 
IF  INFO (CALLING. NODE, IR,1)  NE  0  OR 
INFO (CALLING. NODE, IR. 4)  NE  0 

let  specinfo ( calling. n6de,ir)  =  0 

ALWAYS 

IF  SPECINFO (CALLING. NODE, IR)  EQ  6  . 

INFO (CALLED. NODE, IR, l)  EQ  0  AND 
INFO (CALLING. NODE, IR,1)  EQ  0  AN! 

INFO (CALLING. NODE, IR, 4)  EQ  0 
LET  SPECINFO (CALLING. NODE, IR)  =  0 
LET  SLOTR  =  IR 
GO  TO  MORE. ATTEMPT 
ALWAYS 

,  voop 

IF  SLOT. USED  EQ  1 
GO  TO  XX 
ALWAYS 

LET  FRAMER  =  2 

FOR  IR  =  1  TO  (SLOT. USED  -  1),  DO 
IF  INFO (CALLING. NODE, IR,1)  NE  0  OR 
INFO (CALLING. NODE, IR, 4)  NE  0 
LET  SPECINFO (CALLING. NODE, IR)  =  0 
, ALWAYS 

IF  SPECINFO (CALLING. NODE, IR)  EQ  6  . 

INFO (CALLED. NODE, IR.l)  EQ  0  AND 
INFO ( CALLING. NODfe,lR,l)  EQ  0  AN 
info(calling.node,ir!4!  EQ  0 
LET  SPECINFO ( CALLING. nGdE, IK)  =  0 
LET  SLOTR  =  IR 
GO  TO  MORE. ATTEMPT 
ALWAYS 
,VOOP 


1),  DO 
NE  0  OR 
NE  0 
IR)  =  0 


EQ  6  AND 
0  AND 
)  0  AND 

l)°=  0 


LET  FRAMER  =  1 
FOR  JR  =  (SLOT. USED 

if  info (Galling. node 


E,J^, 


TO  12,  DO 


if  info (Calling. node, jR, I)  eq  o  a: 

INFO (CALLING. NODE, JR. 4)  EQ  0  Ai 
INFOf CALLED. NODE, JR, 1)  EQ  0 
LET  SLOTR  =  JR 
GO  TO  MORE. ATTEMPT 
ALWAYS 

,v°°p 

IF  SLOT. USED  EQ  1 
GO  TO  XX 
ALWAYS 

LET  FRAMER  =  2 

FOR  JR  =  1  TO  (SLOT. USED  -  1).  DO 
IF  INFO  (CALLING.  NODE,  JR,  1)  EQ  0  A; 
INFO ( CALLING . NODE , JR , 4) 

EQ  0  AND  INFO (CALLED. NODE, JR, 1 
LET  SLOTR  =  JR 
GO  TO  MORE. ATTEMPT 
ALWAYS 
LOOP 

GO  TO  XX 


)  EQ  0 


\ tyORE . ATTEMPT ' 

LET  DELAYR  =  (REAL . F (SLOTR  -  SLOT . REC) + (FRAMER 
*  SLOT. DURATION 
LET  RECSLOT (MESSAGE)  =  0 
LET  SLOT. AS SIGN(MES SAGE)  =  0 
LET  DIRECTION (MESSAGE )  =  0 
t£ET  SLOT. ARRIVAL (MESS AGE)  =  SLOTR 

SCHEDULE  A  REQUEST . FOR . SVC  GIVEN  MESSAGE 

at  time . v  +  delayr 


*  12.0)) 


DELAYR 


RETURN 

ALWAYS 


PRINT  3  LINES  WITH  CKT . NUMBER (MESSAGE ) , 

ORIGINATOR(MESSAGE) ,  DESTINATION (MESSAGE ) , 

TIME . V ,  FM. NODE (MESSAGE)  AND 
TO. NODE (MESSAGE)  AS  FOLLOWS  , J 

CIRCUIT  ****  FROM  ‘NODE  **  TO  **  BROKEDOWN  AT  *** . *****  DUE 
TO  NO  MUTUALLY  AVAILABLE  SLOT  BETWEEN  THE  CALLED  NODE  ** 
AND  THE  CALLING  NODE  ** 

SKIP  2  OUTPUT  LINES 
ALWAYS 

' '  SCHEDULES  BREAK-DOWN  TO  BEGIN  AT  THE  CALLED  NODE 
' '  AFTER  A  DELAY  OF  13  *  SLOT  DURATION  UNITS  TO  SIMULATE 
'  '  irTIME  OUT"  IF  NO  SLOT  IS  AVAILABLE  TO 
' '  CARRY  THE  COORDINATION  MESSAGE 


LET  TYPE (MESSAGE)  =  PARTIAL . BREAKDOWN 
LET  CKT. FAILED  =  CKT. FAILED  +  1 
LET  UP. ROUTE  =  UP. ROUTE  -  1 
V?T  DOWN. ROUTE  =  DOWN . ROUTE  ♦  1 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE)  AND  TIME.V 

.  AS  FOLLOWS  . . . 

CIRCUIT  NO.*****  FAILED  TO  CONNECT  AT  ****.****** 
SKIP  2  OUTPUT  LINES 
ALWAYS 


START. TIME (MESSAGE)  = 

LET  RECSLOT (MESSAGE 2  =  13 
LET  DIRECTIOnTmESSAGE)  =  0 

SCHEDULE  AN  UPSTREAM . BREAK . DOWN  GIVEN  MESSAGE  AT  TIME.V 

♦  BREAKTIME 

RETURN 

^WAYS 

LET  DIRECTION (MESSAGE)  =  4 

SCHEDULE  A  DOWNSTREAM . BREAK . DOWN  GIVEN  MESSAGE  NOW 
, RETURN 

»  t 

QORRECT ' 

LET  INFO (CALLING . NODE , SLOT .ASSIGN (MESSAGE ) ,1)  = 

CKT. NUMBER (MESSAGE) 

LET  INFO  (CALLING.  NODE,  SLOT.  ASSIGN  (MESS  AGE^2^  = 


94 


LET  INFO (CALLING. NODE, SLOT. ASSIGN (MESSAGE) ,3)  = 

CALLED . NODE 

LET  INFO (CALLING. NODE, SLOT. REC, 4)  = 

INFO (CALLING. NODE, SLOT. REC ,4)  +  1 

LET  XSLOT. CALLED  =  SLOT. REC 

LET  RSLOT. CALLED  =  SLOT .ASSIGN (MESSAGE ) 

LET  SLOT. ARRIVAL (MESSAGE)  =  RSLOT . CALLED 
LET  SLOT. ASSIGN (MESSAGE)  =  XSLOT. CALLED 
V|T  RECSLOT (MESSAGE)  =  XSLOT. CALLED 

LET  INFO (CALLED. NODE, XSLOT. CALLED, 1)  = 

CRT . NUMBER (MESSAGE ) 
LET  INFO (CALLED. NODE, XSLOT. CALLED, 2)  =  RSLOT. CALLED 
LET  INFO (CALLED. NODE, XSLOT. CALLED, 3)  =  CALLING. NODE 
LET  INFO (CALLED. NODE, RSLOT. CALLED, 4)  = 

INFO (CALLED. NODE, RSLOT. CALLED, 4)  +  I 


' '  CHECK  WHETHER  THE  CIRCUIT  IS  COMPLETE 
’’  IF  YES,  CALL  THE  COMPLETE . CKT  ROUTINE  AND 
; ;  COLLECT  STATISTICAL  DATA 

IF  TO. NODE (MESSAGE)  EQ  DESTINATION (MESSAGE ) 

LET  START. TIME (MESSAGE)  =  TIME.V  -  START . TIME (MESSAGE ) 
PERFORM  VIRTUAL. CKT  GIVEN  MESSAGE 
RETURN 
ALWAYS 

' '  IF  THE  CIRCUIT  HAS  NOT  BEEN  ESTABLISHED  ALL  THE  WAY 
' ’  TO  THE  DESTINATION  .THEN  SPECIAL  ACTION  MUST  BE  TAKEN 
’ '  TO  ESTABLISH  THE  NEXT  LINK  TO  THE  DESTINATION 


LET  FM. NODE (MESSAGE)  =  TO . NODE (MESSAGE) 

V?T  TO. NODE (MESSAGE)  =  DESTINATION (MESSAGE ) 

' '  THE  REST  OF  THIS  EVENT  SIMULATES  ACTIONS  PERFORMED  AT 
; ;  AN  INTERMEDIATE  NODE  . 

' '  WE  BEGIN  TO  CHECK  WHETHER  THERE  IS  A  SLOT  AVAILABLE  AT 
' '  THIS  NEWLY  ASSIGNED  CALLING  NODE  TO  ACCOMODATE 
' ’  THE  TRANSMISSION  TO  THE  NEWLY 
ASSIGNED  CALLED  NODE. 

LET  CALLING. NODE  =  FM . NODE (MESSAGE ) 

V^T  CALLED. NODE  =  TO . NODE (MESSAGE ) 

' ’  THE  CURRENT  SLOT  IS  CONTAINED  IN  THE  MESSAGE  ATTRIBUTE 
; ;  SLOT  ARRIVAL 

;  FIND  THE  NEXT  MUTUALLY  AVAILABLE  SLOT 

LET  CURRENT. SLOT  =  SLOT . ARRIVAL (MESSAGE ) 

LET  SLOT3  =  0 
V|T  FRAME3  =  0 

IF  CURRENT. SLOT  EQ  12 
LET  K  =  1 
GO  TO  NEXT . FRAME 3 
WAYS 

LET  K  =  CURRENT. SLOT  +  I 
FOR  J  =  K  TO  12  ,  DO 
IF  INFO (CALLED. NODE, J, I)  NE  0  OR 
INFO? CALLING .NODE, J ,4)  NE  0 
LET  SPECINFO (CALLING . NODE , J )  =  0 
ALWAYS 

IF  SPECINFO (CALLED . NODE , J )  EQ  6  AND 
INFO (CALLING. NODE, J, I)  EQ  0  AND 
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UNCLASSIFIE 

NAVAL  POSTGRADUATE  SCHOOL 

5 

MONTEREV  CA 

MM  SEAH  MAR  85 

F/G  17/2.  1 

NL 

1 

end 

■ 

V  KH 

) . NUDE . J ,  1 )  EO 

iG .  NODE ,J, 41  E< 
)(  CALLED.  ftODE,. 


EQ  6  AND 
0  AND 
0  AND 

)°=  0 


&ODE.J.1)  EQ  0  AND 
.NODE. ^,4}  EQ  0  AND 
DE, J, 1)  EQ  0 


LET  SPECINFO (CALLING. NODE, J)  =  0 
LET  SLOT 3  =  J 
GO  TO  CONTI 
ALWAYS 

WOP 

LET  FRAME 3  =  1 

FOR  J  =  1  TO  CURRENT . SLOT .  DO 
IF  INFO (CALLING. NODE, J,l1  NE  0  OR 
INFO (CALLING. NODE  j! 4)  NE  0 
LET  SPECINFO (CALLED. NdDE,J)  =  0 
ALWAYS 

IF  SPECINFO (CALLING. NODE, J}  EQ  6  AND 
INFO (CALLED. NODE. J.l)  EQ  0  AND 
INFO  CALLING  .  NODli ,  J ,  1 }  EQ  0  AND 
INFO (CALLING. NODE !ji4j  EO  0 
LET  SPECINFO (CALLED. NODE, J)  =  0 
LET  SLOT3  =  J 
GO  TO  CONTI 
ALWAYS 

w°p 

LET  FRAME 3  =  0 
FOR  J  =  K  TO  12  ,  DO 
IF  INFO (CALLED. NODE, J.l)  EQ  0  AND 
INFO (CALLING. NODE. J, 4}  EQ  0  AND 
INFO (CALLING. NODE, J.l)  EQ  0 
LET  SLOT3  =  J 
GO  TO  CONTI 
ALWAYS 

Wop 

LET  FRAME 3  =  1 

FOR  J  =  1  TO  CURRENT. SLOT,  DO 
IF  INFO (CALLING. NODE, J,l)  EQ  0  AND  INFO (CALLING. NODE, J, 4) 
EQ  0  AND 

INFO (CALLED. NODE, J,l)  EQ  0 
LET  SLOT3  =  J 
GO  TO  CONTI 
ALWAYS 
LOOP 

99  TO  YYYY 

EXT.  FRAME  3' 

LET  FRAME 3  =  1 
FOR  J  =  1  TO  12,  DO 
IF  INFO (CALLING. NODE, J,l)  NE  0  OR 
INFO( CALLING. NODE, J!4)  NE  0 
LET  SPECINFO ( CALLED. n6dE,J)  =  0 
ALWAYS 

IF  SPECINFO (CALLING. NODE, J)  EQ  6  AND 
INFOTCALLED . NODE , J ,1 J  EQ  0  AND 
INFO i, CALLING. NODfi,J,l)  EQ  0  AND 
INFO i CALLING. NODE  j! 41  EQ  0 
LET  SPECINFO ( CALLED. n6dE,JJ  =  0 
LET  SLOT 3  =  J 
GO  TO  CONTI 
ALWAYS 

W0P 


:,J,1)  NE  0 

I!n6de,j^  = 


6  AND 
AND 
AND 


?OR  J  =  1  TO  12,  DO 
IF  INFO (CALLING. NODE, J,l) 
INFO (CALLING . NODE  J  4 
AND  INFO(CALLED . NODE , J  1 ) 
LET  SLOT3  =  J 
GO  TO  CONTI 


0  AND 
0 
0 


4_J 

m 


ALWAYS 

V90p 

;yyyy’ 

PRINT  1  LINE  WITH  CRT . NUMBER (MESSAGE)  AS  FOLLOWS 
CIRCUIT  -***  FAILED  IN  EVENT  RESPONSE  TO  REQUEST 
1  OUTPUT  LINE 

;yNsuccEss* 

LET  TYPE (MESSAGE)  =  PARTIAL . BREAKDOWN 
LET  CKT. FAILED  =  CKT. FAILED  +  1 
LET  UP. ROUTE  =  UP. ROUTE  -  1 
y|T  DOWN. ROUTE  =  DOWN. ROUTE  +  1 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE)  AND  TIME.V 
AS  FOLLOWS 

CIRCUIT  ****  FAILED  TO  CONNECT  AT  TIME  *********** 
SKIP  2  OUTPUT  LINES 
ALWAYS 

LET  DIRECTION (MESSAGE)  =  3 

SCHEDULE  A  DOWNSTREAM. BREAK. DOWN  GIVEN  MESSAGE  NOW 


$$TURN 


' ’  CONTI  IDENTIFIES  A  SLOT  TO  CARRY  THE  SERVICE  MESSAGE 
TO  THE  CALLED  NODE  AND  ALSO  COMPUTES  WHEN  THE  SERVICE 


MESSAGE  WILL  ARRIVE  AT  THE  CALLED  NODE 


JyONTl' 

LET  DELAY 3 


REAL. F( 12  *  FRAME 3 
*  SLOT. DURATION 


SLOT 3  -  CURRENT. SLOT) 


LET  SLOT. ARRIVAL (MESSAGE)  =  SLOT 3 
LET  SLOT.ASSIGN7MESSAGE)  =  0 
V^T  RECSLOT(MESSAGE)  =  0 

IF  PRNT  EQ  0 

PRINT  2  LINES  WITH  CKT . NUMBER (MESSAGE ) .  FM. NODE (MESS AGE) 

AND  (TIME.V  +  DELAYS)  AS  FOLLOWS 
CIRCUIT  *****  has  SCHEDULED  A  REQ  FOR  SERVICE  AT  NODE  **  AT 
TIME  ***  ***** 

SKIP  2  OUTPUT  LINES 
£yWAYS 

$QHEDULE  A  REQUEST . FOR . SVC  GIVEN  MESSAGE  AT  TIME.V  +  DELAY 3 
IF  PRNT  EQ  0 

PRINT  2  LINES  WITH  CKT. NUMBER (MESS AGE ) ,  FM. NODE (MESSAGE ) , 


CIRCUIT  *** 


NES  WITH  CKT.NUMBER(MESSAGE) ,  FM. NODE (MESSAGE ) , 
AND  (TIME.V  +  DELAY3)  AS  FOLLOWS 
**  HAS  SCHEDULED  A  RESPONSE  TO  SVC 


$*IP 


IT  ****  HAS  SCHEDULED  A 
AT  NODE  **  AT  ***.** 
1  OUTPUT  LINES 


PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  END  OF  RESPONSE  TO  SVC  ARE 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
ALWAYS 


RETURN, 
S^D  '  ’ 


RESPONSE  TO  REQUEST 


f  * 
f  » 
f  f 
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I '  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
pyENT  UPSTREAM. BREAK. DOWN  GIVEN  U.B.D.MSG 

; ’  THIS  EVENT  BREAKS  DOWN  A  ESTABLISHED  CIRCUIT 
J ;  FROM  THE  ORIGINATOR  NODE  TO  THE  DESTINATION  NODE 

IT  REMOVES  SLOT  ASSIGNMENTS  FROM  THE  NODAL  SLOT 
'  ASSIGNMENT  TABLES  SO  THAT  THESE  RELEASED  SLOTS 
; J  CAN  BE  USED  IN  THE  ESTABLISHMENT  OF  OTHER  CIRCUITS 

’ '  THIS  EVENT  SELECTS  A  RELEVANT  PORTION  OF  PROGRAM  TO 
; ;  EXECUTE  DEPENDING  ON  THE  VALUE  OF  DIRECTION (MESSAGE) 

' '  -2  :  START  BREAKING  DOWN  AN  ESTABLISHED  CIRCUIT  FROM 
J ;  THE  ORIGINATOR  NODE  TO  THE  DESTINATION  NODE 

' ’  - 1  :  CONTINUE  BREAKING  DOWN  AN  ESTABLISHED  CIRCUIT  FROM 
| ;  AN  INTERMEDIATE  NODE  TO  THE  DESTINATION  NODE 

' ’  0  :  BREAK  DOWN  WHEN  A  RESPONSE  TO  REQ  FAILED 


V$T  MESSAGE  =  U.B.D.MSG 

ppFINE  INCREMENT  AS  A  REAL  VARIABLE 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS  J  ,  . 

UPSTREAM  BREAK  DOWN  PERFORMED  AT  TIME  *********** 

SKIP  2  OUTPUT  LINES 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  THE  ENTITY  AT  START  OF  UPSTREAM  BD  ARE  : 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
^WAYS 

IF  TYPE (MESSAGE)  EQ  1 

LET  TYPE (MESSAGE J  =  PARTIAL . BREAKDOWN 
ALWAYS 

P^T  CURRENT.  SLOT  =  SLOT.  ARRIVAL  (MESSAGE) 

IF  DIRECTION (MESSAGE)  EQ  -1 
GO  TO  CONT. BREAKDOWN 
^WAYS 

IF  DIRECTION (MESSAGE)  EQ  0 
GO  TO  RESPONSE . BREAKDOWN 
^VWAYS 


PRINT  3  LINES  WITH  CKT .NUMBER (MESSAGE), 

ORIGINATOR (MESSAGE ),DESINATION (MESSAGE) , 

TIME.V  ANQ  START. TIME (MESSAGE)  ASJ FOLLOWS 
CIRCUIT  *****  FM  NODE  **  TO  NOpE  **  WAS  ONCE  ESTABLISHED 
BROKEN  DOWN  AT  TIME  ****.******  AFTER  CARRYING  VOICE 
TRAFFIC  FOR  A  CALL  DURATION  OF  ****.******  SECS 
SKIP  2  OUTPUT  LINES 
^PWAYS 


LET  FM. NODE (MESSAGE)  =  ORIGINATOR (MESSAGE) 
V^T  START. TIME (MESSAGE)  =  TIME.V 

LET  DOWN. ROUTE  =  DOWN. ROUTE  +  1 
V|T  DIRECTION (MESSAGE)  =  -I 

FOR  I  *  1  TO  12  ,  DO 


IF  INFOfFM.  NODE  (MESSAGE)  ,1,1)  EQ  CKT.NUMBER(MESSAGE) 
LET  SLOT2 . XMIT  —  I 

LET  TO. NODE (MES SAGE )=  INFO (FM. NODE (MESSAGE) , I , 3 ) 
LET  M  =  INFO (FM. NODE (MESSAGE) ,1,2) 

LET  RECSLOT (MESSAGE)  =  M 

LET  INFOTfM.NODE(MESSAGE) ,M,4)  = 

INFO (FM. NODE (MESSAGE  ,M, 4)  -  1 
LET  INFOfFM. NODE(MESSAGE)  1,1)  =  0 
LET  INFO (FM. NODE (MESSAGE  1 ,1,2)  =  0 
LET  SPECINFO(FM. NODE (MESSAGE) .1)  =  6 
LET  INFO (FM. NODE (MESSAGE) ,1,3)  =  0 
GO  TO  COMPUTE . DELAY 


ALWAYS 

V9°p 

PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE)  AS  FOLLOWS 
FAULT  IN  UPSTREAM  BREAKDOWN  FOR  CIRCUIT  NO.  ***** 

SKIP  1  OUTPUT  LINE 
$$TURN 

’ '  WE  HAVE  SET  THE  TRANSMIT  AND  RECEIVE  SLOTS  AT  THE 
ORIGINATOR  NODE  TO  ZERO . 

WE  NOW  BREAK  DOWN  THE  CIRCUIT  ALONG  THE  UPSTREAM  PATH 
H  FROM  THE  ORIGINATOR  NODE  TO  THE  DESTINATION  NODE. 

' '  CHECK  WHETHER  WE  ARE  AT  THE  DESTINATION  NODE  , 

’  IF  SO  , WE  NEED  ONLY  DELETE  THE  TRANSMIT  AND  RECEIVE 
SLOT  ASSIGNMENTS  FOR  THIS  CIRCUIT  AND 
; ;  COLLECT  STATISTICS  DATA 

;gONT. BREAKDOWN' 

LET  SLOT1.XMIT  =  REC SLOT (MESSAGE) 

LET  SLOTl. REC  =  INFO (TO. NODE (MES SAGE ). SLOT 1. XMIT, 2) 

LET  INFO(TO.NODE(MESSAGE),SLOTl.XMIT'i)  =  0 
LET  SPECINFO (TO. NODETmESSAgE), SLOTl. XMIT)  =  6 
LET  INFO (TO. NODE (MESSAGE J.SLOil. XMIT, 2)  =  0 
LET  INFO  TO. NODE (MESSAGE j , SLOT 1. XMIT, 3)  =  0 
LET  INFO  TO. NODE (MES SAGE  i  .SLOT 1. REC, 4)  = 

..  INFO (TO. NODE (MESSAGE  -  SLOTl. REC, 4)  -1 


INFO (TO . NODE (MESSAGE ) . SLOTl . XMIT , 2 ) 
'MES SAGE ), SLOT l.XMIT'l)  =  0 
ODETmESSAgE) .SLOTl. iMIT)  =  6 
MESSAGE ) , SLOi 1 . XMIT , 2 )  =  0 
MESSAGE  j , SLOTl . XMIT, 3 )  =  0 
MESSAGE  i  SLOTl. REC, 4)  = 

MESSAGE  SLOTl. REC, 4)  -1 


WE  HAVE  COMPLETED  RELEASING  THE  DOWN- SIDE 
RECEIVE  AND  TRANSMIT  SLOT  ASSIGNMENTS 

IF  WE  ARE  AT  THE  DESTINATION  NODE, WE  CAN  NOW  COLLECT 

WE  WILL  CONTINUE  BREAKING  DOWN  THE  UP- SIDE  SLOT 
ASSIGNMENTS 


RETURN 

ALWAYS 

V$T  FM. NODE (MESSAGE)  =  TO. NODE (MES SAGE) 
FOR  I  =  1  TO  12  »  DO 


RT. TIME (MESSAGE) 
MESSAGE 


OR  I  =  1  TO  12  ,  DO 

IF  INFO (FM. NODE (MESSAGE) ,1,1)  EQ  CKT. NUMBER (MES SAGE) 
LET  SLOT2 . XMIT  =  I 


LET  TO. NODE (MESSAGE)  =  INFO ( FM . NODE (MESSAGE ) , I , 
LET  M  =  INFO (FM. NODE (MESSAGE) ,1,2) 

LET  RECSLOT (MESSAGE )  =  M 
LET  INFO(FM.NODETmESSAGE) ,M,4)  = 

INFO (FM. NODE (MESSAGE)  M  4)  -  1 
LET  INFO(FM. NODE (MESSAGE) ’ill)  =  0 
LET  SPECINFO(FM. NODE (MESSAGE) ,1)  =  6 


LET  INFO (FM. NODE (MESSAGE), I, 2) 
LET  INFO ( FM . NODE (MESSAGE )  I , 3 ) 
ACTION (MESSAGE )  =  - ’ 


LET  DIRECTION (MESSAGE 
GO  TO  COMPUTE. DELAY 
ALWAYS 
V9°p 


0 

0 


PRINT  1 

CIRCUIT  ****  HAS  FAULT  IN  EVENT  UPSTREAM  BREAK  DOWN 
SKIP  1  OUTPUT  LINE 
TURN 


LINE  WITH  CKT. NUMBER (MESSAGE)  AS  FOLLOWS 
****  mar  TAirt.T  tn  PVENT  UPSTRF 


USES  THE  ASSIGNED  TRANSMIT  SLOT  TO  CARRY  THE  BREADDOWN 
MESSAGE  TO  THE  NEXT  NODE  UPSTREAM 
ON  THE  WAY  TO  THE  DESTINATION  NODE. 

COMPUTE  WHEN  THE  BREAK  DOWN  MESSAGE  WILL  ARRIVE  AT 
THE  NEXT  NODE 


COMPUTE . DELAY ’ 


(CURRENT. SLOT  +  1) 
2.XMIT  -  CURRENT. SLOT 


1) 


(CURRENT. SLOT  +  1) 
2.XMIT  -  CURRENT. SLOT 


IF  SLOT2.XMIT  GT 

LET  DELAY  =  SLOT _ 

GO  TO  NEXT. BREAKDOWN 
ALWAYS 

IF  SL0T2.XMIT  EQ  (CURRENT . SLOT  ♦ 

LET  DELAY  =  13 
GO  TO  NEXT . BREAKDOWN 
ALWAYS 

IF  SLOT2.XMIT  LT 
LET  DELAY  =  SLOT2.XMIT  - 
GO  TO  NEXT . BREAKDOWN 
ALWAYS 

PRINT  1  LINE  WITH  CKT. NUMBER (MESSAGE)  AS  FOLLOWS 

^LCULATION  ““ 


12 


FAULT  IN  UPSTREAM  BD  DELAY  CALCULATE 
SKIP  1  OUTPUT  LINE 

I^TURN 

;  IjjfEXT .  BREAKDOWN ' 

LET  SLOT. ARRIVAL (MESSAGE)  =  SLOT2.XMIT 
LET  INCREMENT  =  REAL . F (DELAY )  *  SLOT . DURATION 
SCHEDULE  AN  UPSTREAM. BREAK . DOWN  GIVEN  MESSAGE 
AT  TIME . V  +  INCREMENT 
99  TO  LAST. UPSTREAM 

' RESPONSE . BREAKDOWN ’ 


FOR  CIRCUIT  ■***•& 


IF  RECSLOT (MESSAGE)  EQ  13 

LET  START. TIME (MESSAGE)  =  TIME.V  -  START. TIME (MESSAGE) 
PERFORM  STATS. AT. END. BREAK. DOWN  GIVEN  MESSAGE 
^.9  WAYS 

IF  RECSLOT (MESSAGE)  LE  12 
DESTROY  THE  MESSAGE  CALLED  MESSAGE 
44.WAYS 

| CAST. UPSTREAM’ 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  THE  ENTITY  AT  END  OF  UPSTREAM  BD  ARE  : 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  1  OUTPUT  LINE 
ALWAYS 


100 


RETURN 

^  UPSTREAM  BREAK  DOWN 


&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
$YENT  downstream. break. down  given  d.b.d.msg 

THIS  EVENT  BREAKS  DOWN  A  ESTABLISHED  CIRCUIT 
IN  THE  DOWNSTREAM  DIRECTION.THAT  IS, 

FROM  THE  DESTINATION  NODE  TO  THE  ORIGINATOR 
NODE.  THE  CIRCUIT  CAN  BE  FULLY  OR  PARTIALLY  ESTABLISHED 

IT  REMOVES  SLOT  ASSIGNMENTS  FROM  THE  NODAL  SLOT 
ASSIGNMENT  TABLES  SO  THAT  THESE  RELEASED  SLOTS 
CAN  BE  USED  IN  THE  ESTABLISHMENT  OF 
OTHER  CIRCUITS 

THIS  EVENT  SELECTS  A  RELEVANT  PORTION  OF  PROGRAM  TOv 
EXECUTE  DEPENDING  ON  THE  VALUE  OF  DIRECTION (MESSAGE) 

1  :  START  BREAKING  DOWN  AN  ESTABLISHED  CIRCUIT 
FROM  THE  DESTINATION  NODE  TO  THE  ORIGINATOR  NODE 

2  :  CONTINUE  BREAKING  DOWN  AN  ESTABLISHED  CIRCUIT  FROM 
AN  INTERMEDIATE  NODE  TO  THE  ORIGINATOR  NODE 

3  :  START  BREAKING  DOWN  FROM  A  NODE  TO  THE  ORIGINATOR 
NODE  CALLED  BY  REQUEST  FOR  SERVICE 

4  :  START  BREAKING  DOWN  FROM  A  NODE  TO  THE  ORIGINATOR 
NODE  CALLED  BY  RESPONSE  TO  REQUEST 


^$T  MESSAGE  =  D.B.D.MSG 

p^FINE  INCREMENT  AS  A  REAL  VARIABLE 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS 

DOWNSTREAM  BREAK  DOWN  PERFORMED  AT  TIME  *********** 

SKIP  2  OUTPUT  LINES 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  THE  ENTITY  AT  START  OF  DOWNSTREAM  BD  ARE  : 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
4^WAYS 

IF  TYPE (MESSAGE)  EQ  I 

LET  TYPE (MESSAGE)  =  PARTIAL . BREAKDOWN 
^VWAYS 

V$T  CURRENT. SLOT  =  SLOT. ARRIVAL (MESS AGE) 

IF  DIRECTION (MESSAGE)  EQ  1 
GO  TO  ONE 
^VWAYS 

IF  DIRECTION (MESSAGE)  EQ  2 
GO  TO  TWO 
ALWAYS 

IF  DIRECTION (MESSAGE)  EQ  3 
GO  TO  THREE 
^VWAYS 

IF  DIRECTION (MESSAGE)  EQ  4 


GO  TO  FOUR 
^WAYS 

.'pNE' 


START. TIME (MESSAGE)  AND  T 
CIRCUIT  ****  FM  **  TO  ** 
miUATTON  01?  ****  ******* 
IN  THE  DOWNSTREAM  AT  TIME 
SKIP  2  OUTPUT  LINES 
ALWAYS 


AND, TIME. V  AS  FOLLOWS 
Q  **  WAS  ESTABLISHED  FOR  A  CALL 
****  SECS  1$, BEING  BROKEN  DOWN 
TIME  **** . ******  SECS 


LET  FM. NODE (MESSAGE)  =  DESTINATION (MESSAGE) 

LET  START. TIME (MESSAGE)  =  TIME.V 
LET  DOWN. ROUTE  =  DOWN. ROUTE  +  I 
VET  DIRECTION (MESSAGE)  =  2 

J^UMP.IN' 

FOR  I  *  1  TO  12  ,  DO 

IF  INFO^FM. NODE (MESSAGE), 1,1)  EQ  CKT. NUMBER (MESSAGE) 

LET  TO . NODECMESSAGE )  =  INFO (FM. NODE (MESSAGE) , I , 3 ) 

LET  MM  =  INFOTfM. NODE (MESSAGE) ,1,2) 

LET  REC SLOT (MESSAGE)  =  MM 

LET  INFOTFM. NODE (MESSAGE ), MM, 4)  = 

INFO (FM. NODE (MESSAGE)  MM*4)  -  1 
LET  INFOf FM. NODE (MESSAGE)  I,  i)  =  0 
LET  SPECINFO(FM.NODETmESSAgE),I)  =  & 

LET  INFO(FM. NODE (MESSAGE) ,1,2)  =  0 
LET  INFO (FM. NODE (MESSAGE) .1,3)  =  0 
LET  DIRECTION (MESSAGE)  =2 
GO  TO  COMPUTE. DELAY 
ALWAYS 

V90p 

PRINT  I  LINE  WITH  CKT . NUMBER(MESSAGE)  AS  FOLLOWS 
FAULT  IN  EVENT  DOWNSTREAM  BD  FOR  CIRCUIT  ***** 

SKIP  1  OUTPUT  LINE 
V^TURN 

' '  WE  HAVE  SET  THE  TRANSMIT  AND  RECEIVE  SLOTS  AT 
THE  DESTINATION  NODE  TO  ZERO 

; ;  WE  NOW  BREAK  DOWN  THE  CIRCUIT  ALONG  THE  DOWNSTREAM  PATH 

; ;  CHECK  WHETHER  WE  ARE  AT  THE  ORIGINATOR  NODE  , 

IF  SO  , WE  NEED  ONLY  DELETE  THE  TRANSMIT  AND 
AND  RECEIVE  SLOT  ASSIGNMENTS  FOR  THIS  CIRCUIT 
; ;  AND  COLLECT  STATISTICS  DATA 

;fwo’ 

LET  SL0T2.XMIT  =  RECSLOT (MESSAGE) 

LET  SLOT 2 .REC  =  INFO(TO .NODE(MESSAGE) . SL0T2 . XMIT , 2 ) 

LET  INFO(TO. NODE  (MESSAGE), SL0T2. XMIT 'i)  =0 
LET  SPECiNF0(T0.N0DETMESSAGE).SL0T2.iMIT)  =  6 
LET  INFO (TO. NODE (MESSAGE ),SLOf 2. XMIT, 2)  =  0 
LET  INFO  (TO.  NODE  (MESSAGE)  SL0T2.XMIT  3  '>  =  0 
LET  INFO (TO . NODE (MESSAGE  SL0T2 . REC , 4 )  = 

,,  INFO (TO. NODE (MESSAGE  , SL0T2 . REC  4)  -  I 


WE  HAVE  COMPLETED  RELEASING  THE  UP- SIDE  RECEIVE  AND 
TRANSMIT  SLOT  ASSIGNMENTS 

IF  WE  ARE  AT  THE  ORIGINATOR  NODE, WE  CAN  NOW  COLLECT 
STATISTICS,  OTHERWISE 


' !  WE  WILL  CONTINUE  BREAKING  DOWN  THE  DOWN  SIDE  SLOT 
; ;  ASSIGNMENTS 

IF  TO. NODE (MESSAGE)  EO  ORIGINATOR (MESSAGE) 

LET  START. TIME (MESSAGE}  =  TIME.V  -  START. TIME (MESSAGE) 
PERFORM  STATS. AT. END. BREAK. DOWN  GIVEN  MESSAGE 
.RETURN 
^WAYS 

^T  FM.  NODE  (MESSAGE)  =  TO .  NODE  (MESSAGE) 


FOR  I  *  1  TO  12  ,  DO 

IF  INFO (FM. NODE (MESSAGE) ,1,1)  EQ  CKT. NUMBER (MESS AGE) 
LET  SLOT1.XMIT  =  I  , 

TO. NODE (MESS AGE)  =  INFO  (FM.  NODE  (MESSAGE)  ,  1 , 3  ) 

M  =  INFO (FM . NODE (MESSAGE ) ,1,2) 

'LOT (MESSAGE)  =  M 


LET 

LET 

LET 

LET 


RECSI 
INFO  I 
INFO  I 
INFO! 


FM. NODE (MESSAGE 
FM. NODE (MESSAGE 
FM. NODE (MESSAGE 


LET 

LET  SPECtNFO (FM . NODE (MES 

LET  INFO!  - 

LET  INFO! 

LET  DIRE(  _ 

GO  TO  COMPUTE . DELAY 
ALWAYS 


FM.NODE (MES SAGE) ,1, 
FM. NODE (MESSAGE)  ’ 
ITION  (MESSAGE)  = 


=  6 


V90p 

PRINT  1  LINE  WITH  CKT . NUMBER (MES SAGE)  AS  FOLLOWS 
CIRCUIT  ****  HAS  FAULT  IN  EVENT  DOWN  BREAKDOWN 

P:turn 

J JHREE ' 

IF  PRNT  EQ  0  AND  DIRECT I ON (MES SAGE)  EQ  3 
PRINT  3  LINES  WITH  CKT . NUMBER(MESSAGE) ,  s 
ORIGINATOR (MESSAGE) ,  DESTINATIONImESSAGe) , 

START. TIME (MES SAGE)  AND  TIME.V  AS  FOLLOWS 
CIRCUIT  *****  FM  **  TO  **  CANNOT  BE  ESTABLISHED, 
BEGIN  TO  BREAK  DOWN  THE  CIRCUIT  AT  TIME  **** . ****** 
TIME  NOW  IS  ****.****** 

SKIP  2  OUTPUT  LINES 
ALWAYS 

LET  DIRECTION (MESSAGE)  =  2 
99  TO  JUMP. IN 

;?our' 

IF  PRNT  EQ  0  AND  DIRECTION (MESSAGE )  EQ  4 
PRINT  3  LINES  WITH  CKT . NUMBERTmESSAGE) . 

ORIGINATOR (MES SAGE) ,  DESTINATION (MESSAGE) , 
START. TIME (MESSAGE)  AND  TIME.V  AS  FOLLOWS 
CIRCUIT  *****  FM  **  TO  **  CANNOT  BE  ESTABLISHED, 
BEGIN  TO  BREAK  DOWN  THE  CIRCUIT  AT  TIME  ****.****** 
TIME  NOW  IS  ****,****** 

SKIP  2  OUTPUT  LINES 
4EWAYS 


LET  DIRECTION (MES SAGE)  =  2 
99  TO  JUMP. IN 


USE  THE  ASSIGNED  TRANSMIT  SLOT  TO  CARRY 
THE  BREADDOWN  MESSAGE  TO  THE  NEXT  NODE 
UPSTREAM  ON  THE  WAY  TO  THE  DESTINATION  NODE. 


COMPUTE  WHEN  THE  BD  MSG  WILL  ARRIVE  AT  THE  NEXT  NODE 


; COMPUTE. DELAY' 

IF  SLOT I . XMIT  GT  (CURRENT. SLOT  +  I) 

LET  DELAY  =  SLOT 1. XMIT  -  CURRENT. SLOT 
GO  TO  LAST. DOWN 
^C-WAYS 

IF  SLOT 1. XMIT  EQ  ( CURRENT . SLOT  +  1) 

LET  DELAY  =13 
GO  TO  LAST. DOWN 
^VWAYS 

IF  SLOT 1. XMIT  LT  (CURRENT . SLOT  +  1) 

LET  DELAY  =  SLOTI.XMIT  -  CURRENT. SLOT  +  12 
GO  TO  LAST. DOWN 
ALWAYS 

PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE )  AS  FOLLOWS 
FAULT  IN  DOWNSTREAM  BD  DELAY  COMPUTATION  AT  CKT  **** 

$|TURN 

ICast.down' 

LET  SLOT. ARRIVAL (MESSAGE)  =  SLOTI.XMIT 

C£T  INCREMENT  =  REAL . F (DELAY)  *  SLOT . DURATION 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  THE  ENTITY  AT  END  OF  DOWNSTREAM  BD  ARE  : 

LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  1  OUTPUT  LINE 
ALWAYS 

SCHEDULE  A  DOWNSTREAM. BREAK. DOWN  GIVEN  MESSAGE  AT  TIME.V  +  INCREMENT 
RETURN 

C^D  DOWNSTREAM  BREAKDOWN 

I  » 
f  f 
»  » 

| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

RQUTINE  FOR  VIRTUAL. CKT  GIVEN  MSG 

' '  THIS  ROUTE  COLLECTS  STATISTICS  ON  CIRCUITS  THAT  ARE 
ESTABLISHED  AND  SCHEDULES  THEIR  EVENTUAL 
DISESTABLISHMENT  ACCORDING  TO  AN  EXPONENTIAL 
; J  DISTRIBUTION  FUNCTION  WITH  A  MEAN  CALL  DURATION 

CfT  MESSAGE  =  MSG 

CCFINE  CALL. END. TIME  AS  A  REAL  VARIABLES 
IF  PRNT  EQ  1 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS 
ROUTINE  VIRTUAL  CIRCUIT  PERFORMED  AT  TIME  ****.****** 

SKIP  1  OUTPUT  LINE 
^C-WAYS 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  WHEN  VIRTUAL  CKT  WAS  CALLED  ARE  : 

LIST  ATTRIBUTE  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
ALWAYS 

LET  CKT.ESTAB  =  CKT.ESTAB  +  1 
LET  UP. ROUTE  =  UP. ROUTE  -  1 
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VfT  AVG.TIME.EST  =  DELAY. SUM  / REAL . F I 


ESTAB' 


DID  THIS  CIRCUIT  TAKE  THE  MOST  TIME  TO  ESTABLISH 


IF  START. TIME (MESSAGE)  GT  LONG . TIME . EST 
LET  LONG. TIME. EST  =  START . TIME (MESSAGE) 

LET  CKT. LONG. TIME. EST  =  CKT . NUMBER (MESSAGE) 

^VWAYS 

' '  SCHEDULES  THE  TIME  FOR  THE  NEWLY  ESTABLISHED  CIRCUIT 
"  TO  BE  ACTIVE  AND  SELECTS  FROM  EITHER  ORIGINATOR 
NODE  OF  DESTINATION  THE  CIRCUIT  TO  BE 
DISESTABLISHED  AND  SCHEDULES  THE  EVENT  TO  BREAK  DOWN 
; ;  THE  CIRCUIT 

LET  CALL. DURATION  =  EXPONENTIAL. F (MEAN. CALL. DURATION, 7 ) 
LET  CALL . END . TIME  =  CALL . DURATION  +  TIME.V 
LET  SUM. DURATION  =  SUM. DURATION  +  CALL. DURATION 
LET  AVG. DURATION  =  SUM. DURATION  J  REAL. F( CKT. ESTAB) 

LET  START. TIMETmESSAGEJ  =  CALL . DURATION 
V^T  TYPE (MESSAGE)  =  FULL . BREAKDOWN 

LET  SLOT. ARRIVAL (MESSAGE)  =  RANDI . F( 1 , 12 ,4) 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  SLOT. ARRIVAL (MESSAGE)  AS  FOLLOWS 
CIRCUIT  BEGIN  BREAKING  DOWN  IN  SLOT  ** 

SKIP  1  OUTPUT  LINE 
4^WAYS 

IF  FAIR. POINTER  EQ  1 
LET  FAIR. POINTER  =  0 


GT  LONG. TIME. EST 
TART . TIME (MESSAGE) 

=  CKT. NUMBER (MESSAGE) 


SCHEDULE  AN  UPSTREAM . BREAK . DOWN  GIVEN  MESSAGE 
AT  CALL. END. TIME 
GO  TO  LAST. VIRTUAL 
ALWAYS 

IF  FAIR. POINTER  EQ  0 
LET  FAIR. POINTER  =  1 
LET  DIRECTION (MESSAGE)  =  1 

SCHEDULE  A  DOWNSTREAM . BREAK . DOWN  GIVEN  MESSAGE 
AT  CALL . END . TIME 

ALWAYS 

; VAST. VIRTUAL' 

IF  PRNT  EQ  0  AND  FAIR. POINTER  EQ  0 
PRINT  3  LINES  WITH  CKT. NUMBER (MES SAGE ) , 


TIME 


TIME 

.SECS, 


PRINT  3  LINES  WITH  CKT . NUMBER (MES SAGE ) , 

ORIGINATOR (MESSAGE) ,  DESTINATIONTmESSAGE ) , 

TIME.V,  CALL . DURATldN  AND  CALL . END . TIME 
.  AS  FOLLOWS 

CIRCUIT  ****  FM  **  TO  **  WAS  ESTABLISHED  AT  TIME 
***.*****  and  HAS  CALL  DURATION  OF  ******  SECS, 

BREAKDOWN  BEGIN  IN  THE  UPSTREAM  DIRECTION  AT  ****.*** 
SKIP  1  OUTPUT  LINE 
^VWAYS 

IF  PRNT  EQ  0  AND  FAIR. POINTER  EQ  1 
PRINT  3  LINES  WITH  CKT. NUMBER (MES SAGE), 

ORIGINATOR (MESSAGE) ,  DESTINATION (MESSAGE) , 

TIME.V,  CALL. DURATldN  AND  CALL . END . TIME 

CIRCUIT . *****  FM  8Lt8WS*  WAS  ESTABLISHED  AT  TIME 
***.*****  AND  HAS  CALL  DURATION  OF  *»**.******  SEQS , 
BREAKDOWN  BEGINS  IN  THE  DOWNSTREAM  DIRECTION  AT  ****. 

SKIP  1  OUTPUT  LINE 
ALWAYS 


IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  THE  END  OF  VIRTUAL. CKT  ARE  : 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
WAY  S 

RETURN , 

£ND  ’ ’  VIRTUAL  CKT 


| '  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
$QUTINE  FOR  STATS. AT. END. BREAK. DOWN  GIVEN  B.D. MESSAGE 

' ’  THIS  ROUTINE  COLLECTS  STATISTICS  OF  THE  CIRCUIT 
J j  THAT  ARE  BROKEN  DOWN 

^T  MESSAGE  =  B.D. MESSAGE 

p^FINE  BD . TIME  AS  A  REAL  VARIABLE 

IF  TYPE (MESSAGE)  EQ  FULL . BREAKDOWN 
LET  CKT.DISESTAB  =  CKT . DISESTAB  +  1 
ALWAYS 

LET  CKTS.BD  =  CKT.DISESTAB  +  CKT. FAILED 
LET  DOWN. ROUTE  =  DOWN. ROUTE  -  1 
LET  BD . TIME  =  START .TIME (MESSAGE) 

LET  SUM. BD. TIME  =  SUM. BD. TIME  +  BD . TIME 

V£T  AVG . BD . TIME  =  SUM. BD. TIME  /  REAL . F (CKT S . BD) 


COLLECTS  STATS  ON  THE  BREAK  DOWN  OF 


PARTIALLY  ESTABLISHED  CIRCUITS 


IF  TYPE (MESSAGE)  EQ  PARTIAL . BREAKDOWN 
IF  START. TIMETmESSAGE)  GT  LONG.P.BD 
LET  LONG.P.BD  =  START . TIME (MESSAGE ) 
t ALWAYS 

LET  TOT.P.BD  =  TOT.P.BD  +  START. TIME (MESSAGE) 
LET  P.BD. COUNTER  =  P.BD. COUNTER  +  1 
LET  AVG. P.BD  =  TOT.P.BD  /  REAL . F ( P . BD . COUNTER ) 
ALWAYS 

' '  COLLECTS  STATS  ON  THE  BREAK  DOWN  OF 
; ;  FULLY  ESTABLISHED  CIRCUITS 

IF  TYPE (MESSAGE)  EQ  FULL . BREAKDOWN 
IF  START. TIME7mESSAGET  GT  LONG . C . BD 
LET  LONG.C.BD  =  START. TIME (MESSAGE) 

, ALWAYS 

LET  TOT.C.BD  =  TOT.C.BD  +  START . TIME (MESSAGE) 
LET  C.BD. COUNTER  =  C.BD. COUNTER  +1 
LET  AVG. C.BD  =  TOT.C.BD  /  REAL . F (C . BD. COUNTER) 
WAYS 

P^STROY  THE  MESSAGE  CALLED  MESSAGE 
RETURN 

^D  ’ ’  STATS  AT  END  BREAKDOWN 
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1  1 
f  » 


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

$yENT  HALT. SIMULATION  SAVING  THE  EVENT  NOTICE 

»'  I 

' '  THIS  ROUTINES  HALTS  THE  PROGRAM  AND  PRINTS 
; ;  ANALYSIS  STATMENTS  AT  THE  END  OF  A  SIMULATION  RUN 

^T  PRNT.  COUNTER  =  PRNT . COUNTER  +  1 

START  NEW  PAGE 

PRINT  1  LINE  WITH  PRNT. COUNTER  AS  FOLLOWS 
THIS  IS  THE  **  TH  SIMULATION  RUN 
$RIP  1  OUTPUT  LINE 


IF  (CRT . GENERATED  -  UP. ROUTE)  GT  0 
LET  FRACT. SUCCESSFUL. CALL  =  REAL. F( CRT. E STAB)  *  100.00  / 

REAL. F( CRT. GENERATED  -  UP. ROUTE) 
LET  FRACT . LOST . CALL  =  100 . 00  -  FRACT . SUCCESSFUL . CALL 
ALWAYS 

PRINT  16  LINES  WITH  CRT. SUM,  CRT . GENERATED .  CRT . ESTAB , 
CRT. DI STAB.  CRT. FAILED,  OFFERED. TRAFFIC, 

AVG . TIME . EST ,  LONG . TIME . EST , CRT . LONG . TIME . EST , 
AVG . DURATION ,  P . BD . COUNTER , 

C.BD. COUNTER,  AVG.C.BD,  SLOT. DEPTH, 

FRACT. SUCCESSFUL. CALL  AND  FRACT . LO&T . CALL 
AS  FOLLOWS 

STATISTICS  OF  THIS  SIMULATION  : 

THE  NUMBER  OF  CIRCUIT  CREATED  SO  FAR  =  ***** 

THE  NUMBER  OF  CIRCUIT  GENERATED  =  ***** 

THE  NUMBER  OF  CIRCUIT  ESTABLISHED  =  **** 

THE  NR  OF  ESTABLISHED  CRTS  THAT  ARE  DISESTABLISHED  **** 
THE  NUMBER  OF  CIRCUITS  WERE  NOT  ESTABLISHED  =  **** 

THE  OFFERED  TRAFFIC  IS  ** 

THE  AVERAGE  TIME  TO  ESTABLISH  A  CIRCUIT  =  ********* 

THE  LONGEST  TIME  TO  ESTABLISH  A  CIRCUIT  ********  AT  **** 
THE  AVERAGE  DURATION  OF  AN  ESTABLISHED  CIRCUITS  ********* 
THE  NUMBER  OF  PARTIALLY  ESTABLISHED  CIRCUITS  =  **** 

THE  NUMBER  OF  FULLY  ESTABLISHED  CIRCUITS  =  **** 

THE  AVERAGE  TIME  TQ  BREAR  DOWN  A  COMPLETED  CIRCUIT 
THE  SLOT  DEPTH  IS  ** 

PERCENTAGES  OF  SUCCESSFULL  CALL  =  ********* 

PERCENTAGES  OF  LOST  CALL  =  *** . ****** 

$RIP  3  OUTPUT  LINES 


ypR  NODE  =  1  TO  2 


DO 


LET  EMPTY  =  0 
LET  TRANSMIT. SLOTS  =  0 
LET  RECEIVE. SIGS  =  0 
,  LET  RECEIVE. SLOTS  =  0 

RESERVE  SLOTS. PER. FRAME (*)  AS  12 
FOR  S  =  1  TO  12  ,  DO 
IF  INFO(NODE,S,4)  GE  1 

LET  RECEIVE. SIGS  =  RECEIVE. SIGS  +  INFO (NODE , S , 4) 
LET  RECEIVE . SLOTS  =  RECEIVE . SLOTS  +  1 
LET  SLOTS. PER. FRAME(S)  =  INFO (NODE , S , 4 ) 

GO  TO  OUT 
,  ALWAYS 

IF  INFO(NODE , S , 1)  GT  0 
LET  TRANSMIT. SLOTS  =  TRANSMIT . SLOTS  +  1 
LET  SLOT S. PER. FRAME (S)  =  10000  +  INFO (NODE , S , 3 ) 


GO  TO  OUT 
ALWAYS 


IF  INFO (NODE , S , 1)  EQ  0  AND  INFO (NODE , S ,4)  EQ  0 
LET  EMPTY  =  EMPTY  +  1 
LET  SLOTS. PER. FRAME(S)  =  0 
,  ,  ALWAYS 

;  put  • 

,,  LOOP 

PRINT  2  LINES  WITH  NODE,  EMPTY,  TRANSMIT . SLOTS , 

, RECEIVE, SIGS  AND  RECEIVE . SLOTS  AS  FOLLOWS 
NODE*'*  HAS  **  EMPTY  SLOTS,  **  TRANSMIT  SLOTS,  AND 
HAS  **  RECEIVE  SIGNAL  STACKED  IN  **  RECEIVE  SLOTS 
SKIP  2  OUTPUT  LINES 


PRINT  THE  TIME  SLOT  ASSIGNMENT  AT  EACH  NODE 


PRINT  1  LINE  WITH  SLOTS . PER. FRAME (1) , SLOTS . PER. F 
SLOTS . PER . FRAME (35, SLOTS . PER . FRAME ( 4 
SLOTS . PER . FRAME (55, SLOTS . PER . FRAME ( 6 


.SLOTS.  PER.: 


E(2) 


SLOTS . PER . FRAME (75, SLOTS . PER . FRAME (85, 

SLOTS . PER . FRAME (95, SLOTS . PER . FRAMEflO ) , 
SLOTS. PER. FRAME (II )  AND  SLOTS . PER . FRAMp ( 12 ) 
AS  FOLLOWS 

'k'k'k'k  'k'k'ii'k  yHsicvc  'kicic'k  ickicic  i!n!nSnSf  •k'icic'ic  Vr 


isirkif  'k'Sfis'k  'k'te'k'k  'k'kit'k 

, , SKIP  2  OUTPUT  LINES 

RELEASE  SLOTS. PER. FRAME (*) 

V90P 

?$RFORM  TERMINATION 
RETURN 

£ND  ^  HALT. SIMULATION 


'kit'k'k  'k'k'k'k  iJnSnSnSr  •kick'k  Vr 


| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

RQUTINE  FOR  TERMINATION 

FOR  EACH  NEW. CALL  IN  EV. S(I.NEW. CALL)  ,  DO 
CANCEL  THE  NEW. CALL 
DESTROY  THE  NEW. CALL 

V9°p 

FOR  EACH  REQUEST. FOR. SVC  IN  EV . S (I .REQUEST . FOR. SVC) ,DO 
CANCEL  THE  REQUEST . FOR. SVC 
DESTROY  THE  REQUEST. FOR. SVC 

V90p 

FOR  EACH  RESPONSE. TO. REQUEST 

IN  EV . S (I . RESPONSE . TO . REQUEST ) , DO 
CANCEL  THE  RESPONSE .TO . REQUESf 
DESTROY  THE  RESPONSE . TO . REQUEST 

V9°p 

FOR  EACH  UP STREAM. BREAK. DOWN 

IN  EV.S( I. UPSTREAM. BREAK. DOWN 5,  DO 
CANCEL  THE  UPSTREAM . BREAK . DOW# 

DESTROY  THE  UPSTREAM. BREAK. DOWN 

V90P 


FOR  EACH  DOWNSTREAM . BREAK . DOWN 
IN  EV. S( I. DOWNSTREAM. BREAK. DOWN) ,  I 
CANCEL  THE  DOWNSTREAM . BREAK . DOWN 
DESTROY  THE  DOWNSTREAM . BREAK . DOWN 

WOP 

EOR  EACH  HALT. SIMULATION 
IN  EV.S( I. HALT. SIMULATION),  DO 
CANCEL  THE  HALT . SIMULATION 
DESTROY  THE  HALT . SIMULATION 

W0P 


RETURN 

END  ”  TERMINATION 

/* 


,y  .vv  ./.v; 


APPENDIX  E 

SIMULATION  PROGRAM  FOR  EVALUATING  STATIC  AND  DYNAMIC  CONTROL 


//DIJK  JOB  (3060,0203) , 'FLOW' 
//-MAIN  0RG=NPGVM1.3060P,LINES= 
//  EXEC  SIM25CLG, REGION. G0=409 
/ / SIM. SYSIN  DD  * 


FLOW' . CLASS= J 
INES=[20) 

0=4096K , PARM. GO=  MAP , SIZE=760K 


PREAMBLE 

tyQRMALLY  MODE  IS  INTEGER 
Q^NERATE  LIST  ROUTINES 
TEMPORARY  ENTITIES . 

EVERY  MESSAGE  HAS  A  CKT. NUMBER,  A  TYPE,  AN  ORIGINATOR, 

A  DESTINATION,  A  FM.NODE,  A  TO. NODE, 

A  START. TIME,  A  SLOT . ARRIVAL .  A  SLOt. ASSIGN, 

,  ,A  RECSLOT,  A  DIRECTION,  A  REATTEMPT 

REFINE  START. TIME  AS  A  REAL  VARIABLE 

f  f 

EVENT  NOTICES  INCLUDE  REQUEST. FOR. SVC .RESPONSE . TO . REQUEST , 
TO . DEST . BREAKDOWN .TO . ORG . BREAKDOWN , 

,,  NEW. CALL,  DIJK. MANIPULATION  AND  HAL*. SIMULATION 

EVERY  REQUEST. FOR. SVC  HAS  A  MSG1 
EVERY  RESPONSE . TO . REQUEST  HAS  A  MSG2 
EVERY  TO. DEST. BREAKDOWN  HAS  A  BDTODEST 
EVERY  TO . ORG . BREAKDOWN  HAS  A  BDTOORG 


PRIORITY  ORDER  IS  NEW. CALL.  TO . DEST . BREAKDOWN , 
TO . ORG . BREAKDOWN .REQUEST . FOR . SVC , 
RESPONSE .  TO .  REQUEST , DIJK /MANIPULATION 

AND  HALT. SIMULATION 


DEFINL  INFO  AS  A  3 -DIMENSIONAL  INTEGER  ARRAY 

DEFINE  SPECINFO  AS  A  3 -DIMENSIONAL  INTEGER  ARRAY 

DEFINE  SLOTS. PER. FRAME  AS  A  1-DIMENSIONAL  INTEGER  ARRAY 

DEFINE  ATTENUATION  AS  A  2 -DIMENSIONAL  INTEGER  ARRAY 

DEFINE  LINKCONNECT  AS  A  2-DIMENSIONAL  INTEGER  ARRAY 

DEFINE  MEANY. GIVEN  AS  A  1- DIMENSIONAL  REAL  ARRAY 

DEFINE  PROBY. GIVEN  AS  A  1- DIMENSIONAL  REAL  ARRAY 

DEFINE  SLOT. DEPTH  AND  N  AS  INTEGER  VARIABLES 

DEFINE  DIJKSTRA  AND  DISTANCE  AS  2 -DIMENSIONAL  REAL  ARRAYS 

DEFINE  LINK . ATTENU  AS  A  2 -DIMENSIONAL  REAL  ARRAY 

DEFINE  UP . DATE . PERIOD  AS  A  REAL  VARIABLE 

DEFINE  HOP. GREATEST, HOP. SUM  AND  HOP.AVG  AS  REAL  VARIABLES 

DEFINE  C. LEVEL  AS  A  2 -DIMENSIONAL  REAL  ARRAY 

DEFINE  AVAILCHANNEL  AS  A  2 -DIMENSIONAL  REAL  ARRAY 

DEFINE  TOT. HOP. GREATEST  AS  A  REAL  VARIABLE 

DEFINE  N. LINKS  AND  MAX . LINKS . PER. NODE  AS  INTEGER  VARIABLES 

DEFINE  CALLED. NODE  AND  CALLING. NODE  AS  INTEGER  VARIABLES 

DEFINE  LINKS  AND  LINK. NODE . RATIO  AS  REAL  VARIABLES 

DEFINE  NODETRAFFIC  AS  A  REAL  VARIABLE 

DEFINE  BEST. PATH  AS  A  2-DIMENSIONAL  INTEGER  ARRAY 

DEFINE  MEANY  AS  A  2 -DIMENSIONAL  REAL  ARRAY 

DEFINE  PRNT. COUNTER  AS  AN  INTEGER  VARIABLE 
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DEFINE  PATHPRNT  AS  AN  INTEGER  VARIABLE 

DEFINE  CKT.ESTAB,  CRT. FAILED,  CKT. SUM  AND  CKT.DISESTAB  AS 
INTEGER  VARIABLES 

DEFINE  BK.TO.DEST  AND  BK.TO.ORG  AS  INTEGER  VARIABLES 
DEFINE  PRNT  AS  AN  INTEGER  VARIABLE 

DEFINE  TEST. DURATION,  SLOT .DURATION,  MEAN . SYS . CALL. ARRIV , 
AND  MEAN . CALL . DURA"  r0N  AS  REAL  VARIABLES 
DEFINE  FAIR. POINTER  AS  AN  INTEGER  VARIABLE 
DEFINE  LONG. TIME. EST,  AVG.P.BD.  LONG . P . BD ,  AVG.C.BD, 

LONG . C . BD  AND  AVG. TIME. EST  AS  REAL  VARIABLES 
DEFINE  CKT. LONG. TIME. EST  AS  AN  INTEGER  VARIABLE 
DEFINE  MAX. CKT  AS  AN  INTEGER  VARIABLE 

DEFINE  SUM. BD. TIME,  AVG . BD . TIME ,  TOT.P.BD  AND  TOT.C.BD 
AS  REAL  VARIABLES 

DEFINE  CKTS.BD  AS  AN  INTEGER  VARIABLE 
DEFINE  FRACT . LOST . CALL  AND  FRACT . SUCCESSFUL. CALL 
AS  REAL  VARIABLES 

DEFINE  C.BD. COUNTER  AND  P.BD. COUNTER  AS  INTEGER  VARIABLES 
DEFINE  PATH. CONNECT  AS  A  2-DIMENSIONAL  INTEGER  ARRAY 
DEFINE  ORG . NODE  AND  DEST.NODE  AS  INTEGER  VARIABLES 
DEFINE  SUM. DURATION  AND  CALL. DURATION  AS  REAL  VARIABLES 
DEFINE  BREAKTIME  AS  A  REAL  VARIABLE 

DEFINE  NLINK. FOR. NODE  AS  A  1-DIMENSIONAL  INTEGER  ARRAY 

DEFINE  DELAY. SUM  AND  AVG. DURATION  AS  REAL  VARIABLES 

DEFINE  OFFERED. TRAFFIC  AS  A  REAL  VARIABLE 

DEFINE  MAX. ATTEMPT  AS  AN  INTEGER  VARIABLE 

DEFINE  ALPHA  AS  AN  INTEGER  VARIABLE 

DEFINE  BEGIN. DIJK  AS  A  REAL  VARIABLE 

DEFINE  PARTIAL. BREAKDOWN  TO  MEAN  3 

DEFINE  FULL. BREAKDOWN  TO  MEAN  4 

DEFINE  DYNAMIC. ALGORITHM  AS  AN  INTEGER  VARIABLE 

DEFINE  CLEAN  AS  1-DIMENSIONAL  INTEGER  ARRAY 

DEFINE  TOT . DIJK . CALLED  AS  AN  INTEGER  VARIABLE 

pfFINE  NSLOT . AVAIL . I  AS  AN  INTEGER  VARIABLE 

$ND  ’ ’ PREAMBLE 


&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
II^IN 

LET  LINE. V  =  80 
ffART  NEW  PAGE 

PRINT  3  LINES  AS  FOLLOWS 

THE  OBJECTIVE  OF  THIS  SIMULATION  IS  TO  DETERMINE 
THE  EFFECTIVENESS  OF  THE  PROPOSED  DISTANCE  FUNCTION 
AND  THE  PROPOSED  TIME  SLOT  ASSIGNMENT  ALGORITHM. 

$$IP  2  OUTPUT  LINES 

’’  THE  MAIN  PROGRAM  CALLS  THE  FRESH. INPUT  ROUTINE  THAT 
; ;  SETS  THE  INPUT  PARAMETERS  AND  INTI ALI ZATION  VARIABLES 

i  * 


FOR  SIMULATION 


LET  PRNT. COUNTER  =  0 
LET  FAIR. POINTER  =  1 
V$T  TIME . V  =  0.000000000 


^lfRFORM  FRESH.  INPUT 

RESERVE  INFO (*,*.*)  AS  N  BY  12  BY  4 
RESERVE  SPECIN^p (*,',)  AS  N  BY  N  BY  12 


RELEASE  SEED. V , , 

SERVE  SEED . V (>f )  AS  10 

LET  SEED.V(l)  =  2116429302 
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LET  SEED. V (2 
LET  SEED. Vi  3 
LET  SEED. V  4 
LET  SEED. V  5 
LET  SEED. Vi  6 
LET  SEED. V  7 
LET  SEED. V( 8 ' 
LET  SEED. V(9 
V?T  SEED .  V  1( 


683743814 
964393174 
1217426631 
618433579 
1157240309 
15726055 
48108509 
1797920909 
=  477424540 


INFO (NODE, SLOT, INDEX)  =  INTEGER  VALUE 

NODE  DENOTES  NODE  NUMBER 
SLOT  DENOTES  SLOT  NUMBER 


INDEX  =  0 
INDEX  =  1 
INDEX  =  2 
INDEX  =  3 
INDEX  =  4 


EMPTY  SLOT 

TRANSMITS  SLOT  WITH  CIRCUIT  NUMBER 
RECEIVERS  SLOT  FOR  RETURN  SIGNAL 
CALLED  OR  CALLING  NODE  NUMBER 
NUMBER  OF  RECEIVE  SIGNALS 


LET  BEGIN. DIJK  =  200.00 
IF  DYNAMIC. ALGORITHM  EQ  1 

PERFORM  DISTANCE . INITIALIZATION 
SCHEDULE  A  DIJK .MANIPULATION  AT  BEGIN. DIJK 
ALWAYS 

SCHEDULE  A  NEW. CALL  AT 

EXPONENTIAL . F (MEAN . SYS . CALL . ARRIV , 5 ) 

- -  - -  - -  .  _  TES^  - 


URATION 


SCHEDULE  A  HALT. SIMULATION  AT 

^ART  SIMULATION 

SKIP  2  OUTPUT  LINES 
PRINT  1  LINE  AS  FOLLOWS 
|^TD  OF  SIMULATION 

STOP 

$ND 


| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

$9UTINE  FOR  FRESH. INPUT 

i  t 

i  t  ' 

; ;  ;  same  routine  as  in  appendix  f 

*  * 

? » 

I |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
$pUTINE  FOR  DISTANCE. INITIALIZATION 

’ '  THE  DIJKSTRA  ARRAY  HOLDS  A  REAL  POSITIVE  NUMBER 
INDICATING  THE  TOTAL  OVERALL  LINK  "DISTANCE^  FROM 
EACH  NODE  TO  EVERY  OTHER  NODE  IN  THE  NETWORK . 

INITIALLY.  IF  A  DIRECT  LINK  EXISTS  BETWEEN  TWO  NODES 
WE  SHALL  ASSIGN  A  VALUE  OF  1 . 0  AND  IF  A  DIRECT  LINK 
DOES  NOT  EXIST,  WE  SHALL  ASSIGN  A  VALUE  OF  9999.0 
THE  VALUES  IN  THIS  ARRAY  WILL  CHANGE  DURING  THE 
SIMULATION  AS  INIDIVIDUAL  LINK  WEIGHTS  CHANGE  TO 
REFLECT  VARYING  DEGREES  OF  LINK,  NODE  AND 
NETWORK  LOADING . 


RESERVE  DIJKSTRAC*  *) 
%% SERVE  DISTANCE (*,*) 

AS  N  BY 
AS  N  BY 

FOR  I  =  1  TO  N,  DO 

FOR  J  =  1  TO  A,  DO 

IF  I  EQ  J 

.  LET  DIJKSTRA(I.J) 
LET  DISTANCE (I  J) 

, , ALWAYS 

=  9999.0 
=  9999.0 

IF  I  NE  J 

LET  DIJKSTRAfI , J) 
LET  DISTANCE ( I, J) 
,, ALWAYS 

=  800.00 
=  800.00 

IF  LINKCONNECTfl. J) 
LET  DIJKSTRA(i.J) 
LET  DI STANCE ( I, J) 
ALWAYS 

=E?i 
=  1.0 

LOOP 
V9°p 

' ’  PRINT  ONE  OF  THESE  ARRAYS  TO  ENSURE  THEY  WERE 
; ;  SET  UP  PROPERLY. 

PRINT  4  LINES  AS  FOLLOWS 

THE  CONTENTS  OF  THE  INITIAL  DISTANCE  MATRIX  ARE: 

+TO  +  1  2  3  4  5  6 

FM  + . + . 

FOR  I  =  I  TO  N.  DO 

PRINT  I  LINE  ftlTH  I,  DISTANCED,  1).  DISTANCE  (1 . 2  )  , 
DISTANCE (I , 3 ) , DISTANCEtt . 4 ) , DISTANCE (I , 5 ) , 

DI STANCE (il 6 i ’  DISTANCE?! , 7 ) 

**  +  ****  *  3?  *  ****  *  ***■*•  *  ■*■*•**  *  #**•*  # 

•  •  •  •  •  • 

LOOP 

SKIP  I  OUTPUT  LINE 
PRINT  5  LINES  AS  FOLLOWS 

CONTENTS  OF  THE  INITIAL  DISTANCE  MATRIX  (CONT.)  : 

♦  TO  +  8  9  10  11 

FM  +  - + . . . . 

FOR  I  =  1  TO  N,  DO 

PRINT  1  LINE  WITH  I,  DISTANCE (I, 8) .  DISTANCE (1,9), 

LOOP 

,$KIP  2  OUTPUT  LINES 
RETURN 

^D  ^  '  DISTANCE  INITIALIZATION 


: ;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

SYENT  DIJK. MANIPULATION  SAVING  THE  EVENT  NOTICE 

P^FINE  DIST  AS  A  REAL  VARIABLE 

V£T  TOT. DIJK. CALLED  =  TOT . DIJK . CALLED  +  1 


Y^T  1  LINE  WITH  TOT. DIJK.  CALLED  AND  TIME , Y  AS  FOLLOWS 
****  TH  ROUTING  MANIPULATION  INVOKED  AT  ****.**  SECONDS 
$$IP  1  OUTPUT  LINE 


GET  THE  CURRENT  LINK  WEIGHTS  OR  "DISTANCE" 
AT  EVERY  NODE  AND  ON  ALL  LINKS 
OF  THE  NETWORK 
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?£RFORM  COMPUTE . CURRENT . DISTANCES 
$$ SERVE  PATH . CONNECT (* ,  * )  AS  N  BY  N 

’ '  USE  THE  CURRENT  NODE  AND  LINK  WEIGHT  INFORMATION  IN  THE 
; ;  IMPLEMENTATION  OF  THE  DIJKSTRA  ALGORITHM  . 

; ;  START  BY  INITIALIZING  THE  DIJKSTRA  ARRAYS . 

’ '  IF  THERE  IS  NO  LINK  WHICH  DIRECTLY  CONNECTS  TWO  NODES, 
;;  THEN  THE  LINK  WEIGHT  IS  SET  EQUAL  TO  9999.0 

I’  WE  ALSO  READ  A  COPY  OF  THE  PATH. CONNECT  ARRAY 
;;  WHICH  WILL  BE  USED  DURING  THE  DIJK. MANIPULATION  EVENT 

I  t 

FOR  I  =  1  TO  N,  DO 
FOR  J  =  1  TO  A,  DO 
IF  I  EQ  J 

LET  DIJKSTRA (I, J)  =  9999.0 
LET  BEST . PAThTI , J )  =  0 
LET  PATH. CONNECT ( I, J)  =  0 
ALWAYS 
IF  I  NE  J 

LET  DIJKSTRA(I , J )  =  800.00 
LET  BEST. PATH? i,J)  =  0 
LET  PATH. CONNECT ( I, J)  =  0 
ALWAYS 


IF  LINKCONNECT(I.J)  EQ  1 
LET  DIJKSTRA? I, il  =  DISTANCE (I , J) 
LET  BEST. PATH?!, J)  =  J 
LET  PATH .  CONNECT  ( I ,  J )  =  I 
, f ALWAYS 

LOOP 

,V°°P 

LET  MANIP . COUNTER  =  0 
V|T  PASS. COUNTER  =  0 

; MORE. RUN’ 

LET  AGAIN. FLAG  =  0 

LET  PASS. COUNTER  =  PASS. COUNTER  +  I 
FOR  ROW  =  1  TO  N,  DO 
FOR  COL  =  1  TO  A,  DO 
IF  ROW  EQ  COL 
GO  TO  NEXT. COL 
ELSE 

FOR  TCOL  =  1  TO  N,  DO 
IF  TCOL  EO  ROW 
GO  TO  NEXT. TCOL 


IF  TCOL  EQ  ROW 
GO  TO  NEXT. TCOL 
ELSE 

IF  TCOL  EQ  COL 
GO  TO  NEXT. TCOL 
ELSE 

LET  DIST  =0.0 

IF  LINKCONNECT( ROW, TCOL )  EQ  I  v 
LET  DIST  =  DIJKSTRA (ROW, TCOL) 


IF  PATH. CONNECT ?TCOL, COL)  EQ  1 
LET  DIST  =  DIST  +  DIJKSTRA (TCOL, COL) 

IF  DIST  LT  DIJKSTRA?ROW,COL) 

LET  DIJKSTRA (ROW, COL)  =  DIST 

LET  BEST. PATH (ROW, COL)  =  BEST . PATH (ROW, TCOL) 

LET  PATH. CONNECT (ROW, COL)  =  1 

LET  AGAIN. FLAG  =1 

LET  MANIP. COUNTER  =  MANIP . COUNTER  +  I 
ALWAYS 


ALWAYS 
, ,  ALWAYS 

)  1JTEXT .  TCOL ' 

.  L°OP  . 

’.NEXT.  COL' 

LOOP 

,VOOP 

IF  AGAIN. FLAG  EQ  1 
GO  TO  MORE. RUN 
ALWAYS 

’’  PRINT  THE  MANIPULATED  DIJKSTRA  AND  BEST. PATH  MATRICES 


IF  PATHPRNT  EQ  1 

PRINT  2  LINES  WITH  PASS. COUNTER  AND  MANIP . COUNTER 
AS  FOLLOWS 

PASSES  THROUGH  THE  DIJKSTRA  ARRAY  ****  TIMES  AND  PERFORMS 
A  TOTAL  OF  ***  MANIPULATIONS  FOR  BEST  PATH  ASSIGNMENTS 
$$IP  1  OUTPUT  LINE 

PRINT  4  LINES  AS  FOLLOWS 

THE  CONTENTS  OF  THE  MANIPULATED  DIJKSTRA  MATRIX  ARE: 

+TO  +  1  2  3  4  5  6  7 


***#  *  **** 


DIJKSTRA (I. 2) , 
IJKSTRA(I.5) , 

)  AS  FOLLOWS 

**  *  -Ait**  *  ****  * 


FOR  I  =  1  TO  N,  DO 

PRINT  1  LINE  ftlTH  I,  DIJKSTRA (I , 1) ,  DIJKSTRA (I , 2 ) , 

DIJKSTRaT 1,3),  DI JKSTRAXI , 4 j , DIJKSTRA (1.5), 

DIJKSTRA (1,6)  AND  DIJKSTRA (I , 7)  AS  FOLLOWS 

**  +  *  ***#  *  ****  *  ****  *  ****  *  ****  * 

LOOP 

SKIP  1  OUTPUT  LINE 
PRINT  5  LINES  AS  FOLLOWS 

CONTENTS  OF  THE  MANIPULATED  DIJKSTRA  MATRIX  (CONT.)  : 

+  +  TO  +  8  9  10  11 

FM  +  . + . - . 

FOR  I  =  I  TO  N,  DO 

PRINT  1  LINE  ftlTH  I,  DIJKSTRA (I , 8 ) ,  DIJKSTRA (I , 9 ) ,  DIJKSTRA (I , 10) , 

**  J0LL8K**  4  *****  * 

•  •  •  • 

LOOP 

,|KIP  2  OUTPUT  LINES 


PRINT  5  LINES  AS  FOLLOWS 

THE  CONTENTS  OF  THE  MANIPULATED  BEST. PATH  MATRIX  ARE: 


+  TO 

FOR  I 
PRINT 


**  H 

LOOP 
SKIP  2 
^VWAYS 


1  2  3  4  5  6  / 

FM  + . + . 

1  TO  N,  DO 

LINE  WITH  I,  BEST.PATH(I , 1 
BEST. PATH (I  4),  BEST.PATA 
BEST. PATH (1,7),  BEST. PATH 
BEST. PATH (1,10),  BEST . PAT? 
AS  FOLLOWS 

"irk  **  *#  -i 


ifli 


BEST . PATH 
),  BEST .  P. 


Sifefi;, 


BEST . PATh7i , 6 ) , 
BEST . PATH ( I ,  9  )  , 


OUTPUT  LINES 


^QHEDULE  A  DIJK .MANIPULATION  AT  TIME.V  +  UP . DATE . PERIOD 
RETURN 

^D  DIJK. MANIPULATION 


»  I 
t  » 
»  f 


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

^pUTINE  TO  COMPUTE. CURRENT. DISTANCES 

f  f  ' 

;  same  routine  as  in  appendix  f 

ft  ;  1 
t  f 


; ;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

$9UTINE  FOR  COMBINATION  GIVEN  TOP  AND  BOTTOM  YIELDING  ANS 


SAME  ROUTINE  AS  IN  APPENDIX  F 


; ;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$<>$$$$$$$$$$$$$$$$ 

$9UTINE  FOR  FACTORIAL  GIVEN  IVALUE  YIELDING  FAC. VALUE 

f  ? 

ft  1 

; ;  ;  same  routine  as  in  appendix  f 

f  »  ’ 

»  f 


; ;  $$$$$$$$$$$$$*$$$<;$$$$$$$$$$$$$$$$$$$<;$$$$$$$$$$$$$$$$ 

9YENT  NEW. CALL  SAVING  THE  EVENT  NOTICE 
»  » 

ft  / 

; ;  ;  SAME  event  AS  IN  APPENDIX  F 

ft 
f  ? 


| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
9YENT  TO . DEST . BREAKDOWN  GIVEN  BDTODEST 


SAME  EVENT  AS  IN  APPENDIX  F 


| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

^YENT  TO.ORG. BREAKDOWN  GIVEN  BDTOORG 

t  f 

tt  , 1 

; ;  ;  same  event  as  in  appendix  f 

ft  * 
t » 

1 1 
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I  I  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&(&&&&&&&&&&&& 

$QUTINE  FOR  VIRTUAL.  CKT  GIVEN  ESTABLISH. MSG 


SAME  ROUTINE  AS  IN  APPENDIX  F 


&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 


YQUTINE  FOR  STATS. AT. END. BREAK. DOWN  GIVEN  B.D. MESSAGE 


SAME  ROUTINE  AS  IN  APPENDIX  F 


; ;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

£YENT  halt. simulation  saving  the  event  notice 


SAME  EVENT  AS  IN  APPENDIX  F 


| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
^QUTINE  FOR  TERMINATION 

FOR  EACH  NEW. CALL  IN  EV . S (I . NEW. CALL) ,  DO 
CANCEL  THE  NEW. CALL 
DESTROY  THE  NEW. CALL 

V90P 

FOR  EACH  REQUEST. FOR. SVC  IN  EV. S(I . REQUEST . FOR. SVC) ,  DO 
CANCEL  THE  REQUEST . FOR. SVC 
DESTROY  THE  REQUEST. FOR. SVC 
V9°p 

FOR  EACH  RESPONSE. TO. REQUEST 
IN  EV.S( I. RESPONSE. TO. REQUEST),  DO 
CANCEL  THE  RESPONSE . TO . KEQUESi 
DESTROY  THE  RESPONSE . TO . REQUEST 

V90P 

FOR  EACH  TO. DEST. BREAKDOWN 
IN  EV.S( I. TO. DEST. BREAKDOWN),  DO 
CANCEL  THE  TO . DEST . BREAKDOWN 
DESTROY  THE  TO . DEST . BREAKDOWN 
V9°p 

FOR  EACH  TO . ORG . BREAKDOWN 
IN  EV. S (I. TO. ORG. BREAKDOWN) ,  DO 
CANCEL  THE  TO . ORG . BREAKDOWN 
DESTROY  THE  TO . ORG . BREAKDOWN 
V9°p 

FOR  EACH  DIJK. MANIPULATION 
IN  EV. S (I. DIJK. MANIPULATION ) ,  DO 


APPENDIX  F 


SIMULATION  PROGRAM  FOR  EVALUATING  YEN  ROUTING  CONDITIONS 


_  SIM25CLG 

//SIM.SYSIN  DD  * 


SIZE=760K' 


^^.EAMBLE 

NQRMALLY  MODE  IS  INTEGER 
p^NERATE  LIST  ROUTINES 
TEMPORARY  ENTITIES . 

EVERY  MESSAGE  HAS  A  CRT. NUMBER,  A  TYPE,  AN  ORIGINATOR, 
A  DESTINATION,  A  FM.NODE,  A  TO. NODE, 

A  START. TIME,  A  SLOT . ARRIVAL .  A  SLOT. ASSIGN, 

, ,  A  RECSLOT ,  A  DIRECTION ,  A  REATTEMPT 

f pEFINE  START. TIME  AS  A  REAL  VARIABLE 


EVENT  NOTICES  INCLUDE  REQUEST. FOR. SVC, RESPONSE. TO. REQUEST, 

TO . DEST . BREAKDOWN ,  TO . ORG . BREAKDOWN ,  SLOT . FOR . YEN, 

,  NSLOT . FOR . YEN ,  NEW. CALL,  YEN. ROUTING  AND  HALT . SIMULATION 


EVERY  REQUEST. FOR. SVC  HAS  A  MSG1 
EVERY  RESPONSE . TO . REQUEST  HAS  A  MSG2 
EVERY  TO. DEST. BREAKDOWN  HAS  A  BDTODEST 
EVERY  TO . ORG . BREAKDOWN  HAS  A  BDTOORG 


PRIORITY  ORDER  IS  NEW . CALL ,  TO . DEST . BREAKDOWN , 

TO. ORG. BREAKDOWN,  SLOT . FOR. YEN , 

NSLOT. FOR. YEN, 

REQUEST . FOR . SVC ,  RESPONSE . TO . REQUEST , 
YEN. ROUTING  AND  HALT . SIMULATION 


DEFINE  INFO  AS  A  3 -DIMENSIONAL  INTEGER  ARRAY 
DEFINE  SPECINFO  AS  A  3 -DIMENSIONAL  INTEGER  ARRAY 
DEFINE  SLOTS. PER. FRAME  AS  A  1- DIMENSIONAL  INTEGER  ARRAY 
DEFINE  ATTENUATION  AS  A  2 -DIMENSIONAL  INTEGER  ARRAY 
DEFINE  LINKCONNECT  AS  A  2 -DIMENSIONAL  INTEGER  ARRAY 
DEFINE  MEANY. GIVEN  AS  A  1-DIMENSIONAL  REAL  ARRAY 
DEFINE  PROBY. GIVEN  AS  A  1- DIMENSIONAL  REAL  ARRAY 
DEFINE  SLOT. DEPTH  AND  N  AS  INTEGER  VARIABLES 
DEFINE  YEN  AND  DISTANCE  AS  2-DIMENSIONAL  REAL  ARRAYS 
DEFINE  CLOCK  AS  A  2-DIMENSIONAL  REAL  ARRAY 
DEFINE  LINK . ATTENU  AS  A  2-DIMENSIONAL  REAL  ARRAY 
DEFINE  UP. DATE. PERIOD  AS  A  REAL  VARIABLE 
DEFINE  YENSLOT  AS  AN  INTEGER  VARIABLE 
DEFINE  HOP . GREATEST ,  HOP . SUM  AND  HOP.AVG 
AS  REAL  VARIABLES 

DEFINE  C. LEVEL  AS  A  2 -DIMENSIONAL  REAL  ARRAY 
DEFINE  AVAILCHANNEL  AS  A  2 -DIMENSIONAL  REAL  ARRAY 
DEFINE  TOT . HOP . GREATEST  AS  A  REAL  VARIABLE 
DEFINE  N. LINKS  AND  MAX . LINKS . PER. NODE 
AS  INTEGER  VARIABLES 

DEFINE  CALLED. NODE  AND  CALLING. NODE  AS  INTEGER  VARIABLES 
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DEFINE  LINKS  AND  LINK . NODE . RATIO  AS  REAL  VARIABLES 
DEFINE  NODETRAFFIC  AS  A  REAL  VARIABLE 
DEFINE  BEST. PATH  AS  A  2-DIMENSIONAL  INTEGER  ARRAY 
DEFINE  MEANY  AS  A  2 -DIMENSIONAL  REAL  ARRAY 
DEFINE  PRNT. COUNTER  AS  AN  INTEGER  VARIABLE 
DEFINE  PATHPRNT  AS  AN  INTEGER  VARIABLE 
DEFINE  CKT.ESTAB,  CKT. FAILED,  CKT.SUM  AND  CKT . DISESTAB 
AS  INTEGER  VARIABLES 

DEFINE  BK.TO.DEST  AND  BK.TO.ORG  AS  INTEGER  VARIABLES 
DEFINE  PRNT  AS  AN  INTEGER  VARIABLE 

DEFINE  TEST. DURATION,  SLOT . DURATION ,  MEAN. SYS . CALL. ARRIV, 

and  mean. call. Duration  as  real  variables 

DEFINE  FAIR. POINTER  AS  AN  INTEGER  VARIABLE 

DEFINE  LONG. TIME. EST,  AVG.P.BD,  LONG . P . BD ,  AVG.C.BD, 

LONG . C . BD  AND  AVG. TIME. EST  AS  REAL  VARIABLES 
DEFINE  CKT. LONG. TIME. EST  AS  AN  INTEGER  VARIABLE 
DEFINE  MAX. CKT  AS  AN  INTEGER  VARIABLE 

DEFINE  SUM. BD. TIME,  AVG. BD. TIME,  TOT.P.BD  AND  TOT.C.BD 
AS  REAL  VARIABLES 

DEFINE  CKTS.BD  AS  AN  INTEGER  VARIABLE 
DEFINE  FRACT . LOST . CALL  AND  FRACT. SUCCESSFUL. CALL 
AS  REAL  VARIABLES 

DEFINE  C.BD. COUNTER  AND  P.BD. COUNTER  AS  INTEGER  VARIABLES 
DEFINE  UPDATELIST  AS  A  2 -DIMENSIONAL  INTEGER  ARRAY 
DEFINE  ORG . NODE  AND  DEST . NODE  AS  INTEGER  VARIABLES 
DEFINE  SUM. DURATION  AND  CALL . DURATION  AS  REAL  VARIABLES 
DEFINE  BREAKTIME  AS  A  REAL  VARIABLE 

DEFINE  NLINK . FOR . NODE  AS  A  1- DIMENSIONAL  INTEGER  ARRAY 

DEFINE  DELAY. SUM  AND  AVG. DURATION  AS  REAL  VARIABLES 

DEFINE  OFFERED. TRAFFIC  AS  A  REAL  VARIABLE 

DEFINE  MAX. ATTEMPT  AS  AN  INTEGER  VARIABLE 

DEFINE  ALPHA  AS  AN  INTEGER  VARIABLE 

DEFINE  BEGIN. YEN  AS  A  REAL  VARIABLE 

DEFINE  PARTIAL . BREAKDOWN  TO  MEAN  3 

DEFINE  FULL. BREAKDOWN  TO  MEAN  4 

DEFINE  DYNAMIC. ALGORITHM  AS  AN  INTEGER  VARIABLE 
DEFINE  CLEAN  AS  I -DIMENSIONAL  INTEGER  ARRAY 
DEFINE  TOT. YEN. CALLED  AS  AN  INTEGER  VARIABLE 
pfFINE  NSLOT . AVAIL . I  AS  AN  INTEGER  VARIABLE 

END  ’ ' PREAMBLE 


| '  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
MAIN 

^$T  LINE . V  =  80 

PRINT  3  LINES  AS  FOLLOWS 

THE  OBJECTIVE  OF  THIS  SIMULATION  IS  TO  EVALUATE  THE 
BEHAVIOR  OF  THE  PROPOSED  PACKET  RADIO  NETWORK  USING 
YEN  ROUTING 
fKIP  2  OUTPUT  LINES 

’I  THE  MAIN  PROGRAM  CALLS  THE  FRESH. INPUT  ROUTINE  THAT 
; ;  SETS  THE  PARAMETERS  FOR  SIMULATION 

LET  PRNT. COUNTER  =  0 
LET  FAIR. POINTER  =  1 
V|t  TIME.V  =  0.000000000 

?$RFORM  FRESH. INPUT 

RESERVE  INFO (*.**)  A?  N  BY  12  BY  4 
RESERVE  SPECINFO (*,*,*)  AS  N  BY  N  BY  12 


9 
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RELEASE  SEED. V(*) 

SERVE  SEED.V(*)  AS  10 

LET  SEED.V(l)  =  2116429302 
LET  SEED . Vf 2 1  =  683743814 

LET  SEED . V(3  =  964393174 

LET  SEED .  V(  4 )  =  1217426631 
LET  SEED.VC5)  =  618433579 

LET  SEED.VC6)  =  1157240309 
LET  SEED. Vi  7)  =  15726055 

LET  SEED. Vi  8  =  48108509 

LET  SEED.VC9)  =  1797920909 
V^T  SEED. Vi  10)  =  477424540 


INFO (NODE, SLOT, INDEX)  =  INTEGER  VALUE 

NODE  DENOTES  NODE  NUMBER 
SLOT  DENOTES  SLOT  NUMBER 


FOR  POSITIVE  INTEGER  VALUE 

INDEX  =  1  :  TRANSMIT"  SLOT  WITH  CIRCUIT  NUMBER 

nincv  -  0  •  ■DPr’WTVir"  ct  nT  ttitd  pftttom  ct^mat 


INDEX  =  2 
INDEX  =  3 
INDEX  =  4 


RECEIVE  SLOT  FOR  RETURN  SIGNAL 
CALLED  OR  CALLING  NODE  NUMBER 
TOTAL  NUMBER  OF  RECEIVE  SIGNALS 


A  PARITICULAR  SLOT  IS  EMPTY  IF  ITS  INTEGER  VALUE 
IS  ZERO  (NON-TRANSMIT  SLOT  AND  NON-RECEIVE  SLOT) 


LET  BEGIN. YEN  =  200.00 
IF  DYNAMIC. ALGORITHM  EQ  1 

PERFORM  DISTANCE. INITIALIZATION 
SCHEDULE  A  SLOT. FOR. YEN  AT  BEGIN. YEN 
SCHEDULE  A  YEN. ROUTING  AT  BEGIN. YEN  +  SLOT . DURATION 
ALWAYS 


SCHEDULE  A  NEW. CALL 

AT  EXPONENTIAL . F (MEAN . S YS . CALL . ARRIV . 5 ) 
$9HEDULE  A  HALT . SIMULATION  AT  TEST . DERATION 


SjjJART  SIMULATION 

SKIP  2  OUTPUT  LINES 
PRINT  1  LINE  AS  FOLLOWS 

|HE  PROGRAM  HAS  COME  TO  THE  END  OF  THE  SIMULATION 
STOP 

W> 


| '  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
ROUTINE  FOR  FRESH. INPUT 

' '  THIS  ROUTINE  INITIALIZES  ALL  PARAMETERS  FOR 
; ;  THE  SIMULATION 

LET  PRNT  =  2 
^.fT  PATHPRNT  =  0 

; ;  PRNT  HELPS  IN  DEBUGGING  THE  SOFTWARE  AND  PROGRAM  LOGIC 

' ’  0  ==  ANNOUNCES  EACH  PROCESS 

; ;  1  ==  SELECTIVE  PRINTING 

' '  INPUT  DATA 
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LET  DYNAMIC. ALGORITHM  =  1 
LET  OFFERED . TRAFFIC  =2.00 
LET  UP . DATE . PERIOD  =  15.0 
LET  SLOT. DEPTH  =  2 
LET  MEAN. CALL. DURATION  =  20.00 
LET  N  =  11 

LET  TEST . DURATION=  800.00 
LET  SLOT . DURATION=  0.000010417 
LET  MAX.CKT  =  1500 

LET  MAX. ATTEMPT  =  8  -  OFFERED . TRAFFIC 
IF  MAX. ATTEMPT  LT  4 
LET  MAX. ATTEMPT  =  4 
ALWAYS 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

VF 


INITIALIZATION 

CKT.DISESTAB  =  0 
CKT.SUM  -•  0 
CKT.ESTAB  =  0 

FRACT. SUCCESSFUL. CALL  = 

_ 


FRACT . LOST . CALL 
BK.TO.DEST  =  0 
BK.TO.ORG  =  0 
BREAKTIME  =  12.0 
SUM. DURATION  =  0 
AVG . DURATION  =  0 . . 

LONG . TIME . EST  =0.0 
AVG. TIME. EST  =0.0 
AVG.P.BD  =0.0 
AVG.C.BD  =0.0 
LONG . C . BD  =  0.0 
LONG . P . BD  =  0.0 
CKT. LONG. TIME. EST  =0.0 
AVG. BD. TIME  =  0.0 
SUM. BD. TIME  =  0.0 
CKTS.BD  =  0 
P.BD. COUNTER  =  0 
C.BD. COUNTER  =  0 
TOT. P.BD  =0.0 
TOT. C.BD  =  0.0 
TOT. YEN. CALLED  =  0 
CKT. FAILED  =  0 
AVG. DURATION  =0.0 
DELAY. SUM  =0.0 
ALPHA  =  0 


0.0 


*  SLOT . DURATION 
0 
0 


RESERVE  LINKCONNECT (  * .  * )  AS  N  BY  N 
RESERVE  BEST. PATH?*:*)  AS  N  BY  N 
$$SERVE  NLINK.FOR.N6DE(*)  AS  N 

f  » 

FOR  I  =  1  TO  N,  DO 
FOR  J  =  1  TO  N ,  DO 

READ  LINKCONNECT ( I, J) 

LOOP 

WOP 


FOR  I  =  1  TO  N,  DO 
FOR  J  =  1  TO  N,  DO 
READ  BEST.PAiH(I, J) 

LOOP 

V90P 

PRINT  4  LINES  AS  FOLLOWS 

THE  CONTENTS  OF  THE  INITIAL  BEST. PATH  MATRIX  ARE 
+  TO  =  1  2  34  5  6  7  8  9  10 


FM  ♦ 


FOR  I  =  1  TO  N,  DO 
PRINT  I  LINE  WITH  I 
BEST. PATH (I, 3 
BEST. PATH (I, 6 
BEST. PATH (I, 9 


LOOP 

,^KIP 


»W-UmlblU  AS*F05f3e°wi* 


BEST. PATH ( 

,  BEST. PATH 
BEST . PATH 
BEST. PATH 


BEST . PATH(I , 2) , 
BEST. PATH (1, 5 J , 
BEST . PATH ( 1 , 8  ;  , 
AND 


** 


** 


2  OUTPUT  LINES 


00 


LET  LINKS  =0.0 
FOR  I  =  1  TO  N,  DO 

FOR  J  =  1  TO  N.  DO  v 

IF  LINKCONNEfiT ( I ,  J )  EQ  1 
LET  LINKS  =  LI^KS  ♦  1. 

ALWAYS 
LOOP 

V90p 

LET  N. LINKS  =  LINKS  /  2.0 

pET  LINK. NODE. RATIO  =  REAL . F (N. LINKS )  /  REAL.F(N) 

PRINT  2  LINE  WITH  LINKS  AND  LINK . NODE . RATIO  AS  FOLLOWS 
TOTAL  NUMBER  OF  LINKS  IN  THE  NETWORK  IS  *** 

NUMBER  OF  LINKS  PER  NODE  IS  **.** 

,$KIP  2  OUTPUT  LINE 

LET  NODETRAFFIC  =  OFFERED . TRAFFIC  *  LINK . NODE . RATIO 
pT  MEAN. SYS. CALL. ARRIV  =  MEAN . CALL . DURATION /NODETRAFFIC 

pT  MAX.  LINKS.  PER.  NODE  =  0 

FOR  I  =  1  TO  N,  DO 
LET  COUNT  =  0 
FOR  J  =  1  TO  N,  DO 
IF  LINKCONNEC'hl.J)  EQ  1 
LET  COUNT  =  COUNt  +  1 
ALWAYS 

,V°op 

IF  COUNT  GT  MAX. LINKS. PER. NODE 
LET  MAX . LINKS . PER . NODE  =  COUNT 
ALWAYS 

LET  NLINK . FOR . NODE ( I )  =  COUNT 

V?op 

RESERVE  ATTENUATION (*,*)  AS  N  BY  N 
p SERVE  LINK . ATTENU (  * ,  *  )  AS  N  BY  N 

FOR  I  =  1  TO  N,  DO 
FOR  J  =  1  TO  N.  DO 
IF  LINKCONNECf (I, J)  EQ  1 
LET  PPP  =RANDI.F(1 

LET  ATTENUATION?I,jj 
LET  LINK. ATTENU ( I, J) 

ALWAYS 

IF  LINKCONNECT (I .  J )  EQ  0 
LET  LINK. ATTENU (I, J)  =  140.00 
ALWAYS 
LOOP 
VQOP 


.80,7) 

^PP  ♦  60.0 
REAL. F( PPP) 


PRINT  4  LINES  WITH  TEST . DURATION,  SLOT . DURATION . 

MEAN . SYS . CALL . ARRIV  AND  MEAN . CALL . DURATION 
AS  FOLLOWS 

SIMULATION  WILL  RUN  FOR  ****.**  SECS 
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DURATION  OF  A  TIME  SLOT  IS  ***********  SECS 
MEAN  GENERATION  TIME  FOR  NEW  CALL  IS  ****.**  SECS 
MEAN  DURATION  TIME  FOR  VIRTUAL  CIRCUIT  IS  ******* 
$$IP  1  OUTPUT  LINES 


SECS 


RETURN 

$fD  ^  FRESH. INPUT 


1 '  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
$QUTINE  FOR  DISTANCE . INITIALIZATION 

*  *  THE  YEN  ARRAY  HOLDS  A  REAL  POSITIVE  NUMBER  INDICATING 
'  THE  LINK  DISTANCE  FOR  PAIR  OF  NODES . 

INITIALLY,  IF  A  DIRECT  LINK  EXISTS  BETWEEN  TWO  NODES 
'  WE  SHALL  ASSIGN  A  VALUE  OF  1 . 0  AND  IF  A  DIRECT  LINK 
DOES  NOT  EXIST,  WE  SHALL  ASSIGN  A  VALUE  OF  9999.0 
THE  VALUES  IN  fHIS  ARRAY  WILL  CHANGE  DURING  THE 
SIMULATION  AS  INIDIVIDUAL  LINK  WEIGHTS  CHANGE  TO 
; ;  REFLECT  CURRENT  STATUS  OF  LINK  AND  NODE . 

f  f 

' '  THE  DISTANCE  ARRAY  HOLDS  A  REAL  NON-NEGATIVE  NUMBER 
REPRESENTING  THE  DISTANCE  FROM  A  NODE  TO  ANOTHER  NODE 


RESERVE  YEN(*  *)  AS 
RESERVE  CLOCK?**)  1 
^ SERVE  DI STANCE (*," 

FOR  I  =  1  TO  N,  DO 
FOR  J  =  I  TO  A,  DO 
IF  I  EQ  J  * 


(*  *)  AS  N  BY  N 
CK?*.*j  AS  N  BY  N 
tanc£(*,*)  AS  N  BY  N 


LET  CLOCK (I, J)  =  9999.0 
LET  DISTANCE (I, J)  =  9999.0 
LET  YEN(I,J)  =  9999.0 


( ALWAYS 

IF  I  NE  J 
LET  CLOCK 
LET  dista: 
LET  YEN (I 
.ALWAYS 


CK(I , J)  =  800.00 
TANCfi ( I , J )  =  800.00 
(I,J)  =800.00 

ONNECT(I , J)  EQ  1 
CK(I , J 1  =  100.00 
^ANCfe(I,J^  =  100.00 


IF  LINKCONNECT ( I , J )  EQ  1 
LET  CLOCK ( I, J]  =  lOO/OO 
LET  DISTANCE ( I, J)  =  100.00 
LET  YEN(I,J)  =  100.00 
ALWAYS 
LOOP 

V90p 

' '  PRINT  ONE  OF  THESE  ARRAYS  TO  ENSURE 

THE  DISTANCE  MATRIX  WAS  SET  UP  PROPERLY 


PRINT  4  LINES  AS  FOLLOWS 

THE  CONTENTS  OF  THE  INITIAL  DISTANCE  MATRIX  ARE: 
♦  TO  =  1  2  3  4  5  6 

FM+  = 


+  '*•***  •*  **•*•■*  ☆  **☆*  *  ****  *  ****  *  ****  *  ****  * 
*••••••• 


** 


LOOP 

SKIP  1  OUTPUT  LINE 
PRINT  4  LINES  AS  FOLLOWS 

CONTENTS  OF  THE  INITIAL  DISTANCE  MATRIX  (CONT.) 

+  TO  =  8  9  10  11  = 

FM  +  = 


FOR  I  =  1  TO  N.  DO 
PRINT  1  LINE  WITH 


** 


1  LINE  WITH  I.  DISTANCE (1.8).  DISTANCE (I, 9) , 

.“iSBHHW1  -  1li*48*p8Li"is 


LOOP 

,?KIP 


2  OUTPUT  LINES 


RETURN 

$ND  ^  DISTANCE  INITIALIZATION 


f  » 
f  f 


| f  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
^YENT  slot. for. yen 

: :  THIS  EVENT  ALLOCATES  SLOTS  FOR  ROUTING  UPDATES 


DEFINE  EFFECTTIME  AS  A  REAL  VARIABLE 
I^T  YENSLOT  =  1 


t  t 
»  » 


YENSLOT 


MEANS  WE  HAVE  ALLOCATED  SLOTS  FOR  ROUTING 
MESSAGES 


FOR  NODEX  =  1  TO  11.  DO 
FOR  NODER  =  1  TO  ll.  DO 
FOR  I SLOT  =  1  TO  l2,  DO 
IF  INFO  (NODEX,  I  SL(!>T,1) 
INFO (NODER , ISLOT , 1 ) 


l  0  AND 

, _ j  0  AND 

INFO (NODER | ISLOT 14)  LE  SLOT. DEPTH 

let  infoTnod^x , isl6t , 1 )  =  -1 

GO  TO  OL0OP 
ALWAYS 


,V°op 

’ OLOOP ’ 

LOOP 

V90p 

LET  EFFECTTIME  =  24.0  *  SLOT . DURATION 
SCHEDULE  A  NSLOT.FOR. YEN  AT  TIME.V  +  EFFECTTIME 
^HEDULE  A  SLOT. FOR. YEN  AT  TIME.V  ♦  UP . DATE . PERIOD 


RETURN 

£ND  ^ ’  SLOT. FOR. YEN 


| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
9YENT  NSLOT.FOR. YEN 

J ;  THIS  EVENT  REMOVES  SLOTS  FOR  ROUTING  UPDATES 

IF  YENSLOT  EQ  1 
LET  YENSLOT  =  0 
,?OR  NODEX  =  1  TO  11,  DO 


FOR  ISLOT  =  1  TO  12 


v/ft  XWiJV  J,  —  4.  •  1/y 

IF  INFOCNODEX.ISLOf ,1)  EQ  -1 
LET  INFO (NODEX, ISLOT ,1) =  0 


ALWAYS 
..  L00P 

.LOOP 

ALWAYS 

t  » 

RETURN 

$$D  ^  NSLOT.FOR. YEN 

f  f 

1  v  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
£YENT  yen. routing  saving  the  event  notice 

P^FINE  MINYEN  AS  A  REAL  VARIABLE 

V$T  TOT. YEN. CALLED  =  TOT . YEN . CALLED  +  1 

PRINT  1  LINE  WITH  TOT . YEN . CALLED  AND  TIME.V  AS  FOLLOWS 
****  TH  ROUTING  MANIPULATION  INVOKED  AT  ****.**  SECONDS 
$$IP  1  OUTPUT  LINE 

; ;  GET  THE  CURRENT  LINK  DISTANCES  OF  THE  NETWORK 
Y^RFORM  COMPUTE . CURRENT . DISTANCES 

i  » 

'  '  THE  UPDATELIST  ARRAY  IS  A  2 -DIMENSIONAL  INTEGER  ARRAY.. 
’ ’  USED  TO  RECORD  WHICH  NEIGHBOR  A  NODE  JUST  RECEIVES  ^rK" 
; ;  MESSAGE  FROM 

RESERVE  UPDATELI ST ( * , * )  AS  N  BY  N 

’ ’  USE  THE  CURRENT  LINK  WEIGHT  INFORMATION  IN  THE 
’  IMPLEMENTATION  OF  THE  YEN  ALGORITHM  THAT  FOLLOWS . 

'  START  BY  INITIALIZING  THE  YEN  ARRAY. 

'  IF  THERE  IS  NO  LINK  WHICH  DIRECTLY  CONNECTS  TWO  NODES , 
^  THEN  THE  LINK  WEIGHT  IS  SET  EQUAL  TO  9999.0 

; ’  WE  ALSO  READ  A  COPY  OF  THE  UPDATELIST  ARRAY  WHICH  WILL 
;;  TBE  USED  DURING  THE  YEN. ROUTING  EVENT 

i  ? 

' ’  SEND  A  "K"  MESSAGE  FROM  A  DESTINATION  NODE  K  AND  BEGIN 
; ;  TO  PERFORM  YEN  ROUTING 

FOR  K  =  1  TO  N,  DO 
FOR  I  =  1  TO  N,  DO 
FOR  II  =  1  TO  N.  DO 
FOR  JJ  =  1  TO  N.  DO 

LET  UPDATELI ST (I I, JJ)  =  LINKCONNECT ( I I , J J ) 

LOOP 

IF  UPDATELI ST (K. I)  EQ  1 
LET  UPDATELI ST ( I ,K?  =  0 
LET  CLOCKTi.K)  =  DISTANCE ( I, K) 

IF  CL0CK(I,£T  LT  YEN(I.K) 

LET  BEST . PATH^I ,Kj  =  & 

LET  YEN(I,K)  =  6lSTANCE (I ,K ) 

ALWAYS 

FOR  J1  =  1  TO  N,  DO 
IF  UPDATELIST (I .  Jl)  EQ  1  AND  J1  NE  K 
LET  UPDATELIST ?Ji;ii=  0 

LET  CLOCKfJl.K)  =  YEN(I.K)  +  DISTANCE( Jl , I ) 

IF  CLOCK ( J 1 , & )  LT  YEN(ji,R) 


■>DATELIST(K.I)  EQ  1 
UPDATELI ST (l,K)=  0 
CLOCK (I,K)  =  DISTANCE ( I, K) 
SLOCK?i.^i.LT  YEN(I ,K J 


>TANCE (I ,K ) 


DISTANCE (J 1,1) 


ET  YEN(J1.KJ  =  CLOCK (J1 
ET  BEST . PATH( J1 ,K)  =  I 


YS 

J2  =  1  TO  N. 
UPDATELIST (  J 
AND  ?J2  NE  K 
LET  UPDATELI 
LET  CLOCKCJ2 


DO 

J2)  EQ  1 


ELIST(J2,J1)  = 
7J2,k)  =  YEN(J 

)2^1lt  yenL 


IF  CLOCK (J2.K)  LT  YENu 
LET  YENU2,KJ  =  CLQ 
LET  BEST. PATH( J2 ,K) 


ALWAYS 

FOR  J3  =  1  TO 
IF  UPDATELIST 


N,  DO 

(i2,j: 


LET  UPDATELI ST (J3 
LET  CL0CK7J3,K)  = 
IF  CLOCK (J 3, K)  LT 
LET  YEN£J3,K)  = 
LET  BEST . PATh( J3 
ALWAYS 

FOR  J4  =  1  TO  N,  DO, 
IF  UPDATELIST (J3,J4) 
AND  (J4  NE  K)  AND 
LET  UPDATELIST (J4 
LET  CLOCK7j4,K)  = 
IF  CLOCK (J4,K}  LT 
LET  YEN(J4,K)  = 
LET  BEST. PATH (J4 
ALWAYS 

FOR  J5  =  1  TO  N. 
IF  UPDATELI ST (J4 


AND  (J5  NE  K) 
(J5  NE  J2T  AND 
LET  UPDATELIST 
LET  CL0CK7J5^K 

IF  CLOCK (J 5, Kj 
LET  YEN(J$,K 
LET  BEST. PAT 
ALWAYS 

FOR  J6  =  1  TO  N. 
IF  UPDATELI ST (J 
AND  ?J6  NE  K 
(J6  NE  JIT  A 
( J6  NE  J3)  A 
(J6  NE  J2j 
LET  UPDATELIST 
LET  CLOCK7J6^K 

IF  CLOCK CJ6.KJ 
LET  YENTjS.K 
LET  BEST. PAT 
ALWAYS 

FOR  J7  =  1  TO  N, 
IF  UPDATELIST (J6 
AND  ?J7  NE  Kj 
?J7  NE  JlT  AN 
AND  (J7  NE  J3 
LET  UPDATELIST 
LET  CL0CK7J7^K 

IF  CLOCK (J7,Kj 
LET  YENCJ7.K 
LET  BEST.PAT 
ALWAYS 

FOR  J8  =  1  TO  N. 
IF  UPDATELIST (J7 
AND  { J8  NE  K) 


AND  ? 


J5  N 


iJ8  NE  Jl) 

J8  NE  J2  AND  (J8  NE  J3) 

J8  NE  J4  AND  (J8  NE  J6) 
DATELIST  J8,J7)  =  0 
LET  CLOCK (J8,K  =’  ,  „ 

YEA(J7,K)  +  DISTANCE(J8,J7) 
IF.  CLOCK  (J8_ak]  v  hi  YEN( J8  .  K? .  v 


IF  CLOCK (J8.1 
LET  YENTjS 
LET  BEST .  Pj 
ALWAYS 

FOR  J9  =  1  TO  N 
IF  UPDATELISTO 


UPDATELIST(^8 ,J9)  EQ  1  AND 
AND  CJ9  NE  KVAND  (J9  NE  I) 
AND  (J9  NE  Jl)  AND  (J9  NE  J 


( J9  NE  J5 ) 


AND  (J9  NE  J3)  AND 
AND  (J9  NE  J6 1  AND 
LET  CLOCK (J 9, K)  =  % 
YElft(J8,K) 
IF  CLOCK CJ9.KJ  Li  YI 


J9  NE  J4 
J9  NE  J7 


YEN(J8,K)  ♦  DISTANCE (J9 
CLOCK CJ9.KJ  Lt  YEN(J?,K)  v 
LET  YENTj$.K)  =  CLQCK(i9,K) 

LET  BESi.PATH(J9,K)  =  J8 


» J8 ) 


ALWAYS 

ALWAYS 

LOOP  ,  „ 

LET  UPDATELIST(J8,J7)  =  1 
ALWAYS 
LOOP 

LET  UPDATELI ST(J7,J6)  =  1 
ALWAYS 
LOOP 

LET  UPDATELI ST ( J 6 , J  5 )  =  1 
ALWAYS 
LOOP 

LET  UPDATELI ST (J5,J4)  =  1 
ALWAYS 
LOOP 

LET  UPDATELIST(J4,J3)  =  1 
ALWAYS 
LOOP 

LET  UPDATELI ST (J 3, J2)  =  1 
ALWAYS 
LOOP 

LET  UPDATELI ST (J2 , Jl )  =  1 
ALWAYS 
LOOP 

LET  UPDATELIST( Jl , I )  =  1 
ALWAYS 
LOOP 
ALWAYS 
LOOP 

V?op 

IF  PATHPRNT  EQ  1 
PRINT  4  LINES  AS  FOLLOWS 

THE  CONTENTS  OF  THE  MANIPULATED  YEN  MATRIX  ARE: 
+  TO  =  1  2  3  4  5  6 

FM  +  = 


FOR  I  =  1  TO  N 


PRINT  1  LINE  &ITH  I,  YEN(I.l),  YEN(I,2),  YENfl , 3 ) , 
YEN (I. 4 ) ,  YEN(l,5) ,YfeN(i,6)  hut  y£n(I,7)  AS 


x  X  it  it  it  it  it  itititit  *  itititit  it  itieitic  it  it  ic  it  it  it  itititit  it 

*  •  •  •  •  •  •  • 

LOOP 

SKIP  1  OUTPUT  LINE 
PRINT  5  LINES  AS  FOLLOWS 

CONTENTS  OF  THE  MANIPULATED  YEN  MATRIX  (CONT. )  : 

+  TO  =  8  9  10  11  = 
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'■f  hjw  yry  l*j  i'jw  vmj  ■  «  u*  i'U'H'iui  » 


W  *.'  0VTC  I'Ff  'TMTI’^  V  a  IT*  »■  W  t  *  V 


FM 


FOR  I  =  1  TO  N,  DO 
PRINT  1  LINE  WITH  I.  YEN ( 

JEgiiiit>*Ag*to°S 


** 


YEN (1,8),  YEN (1,9),  YEN (1,10), 

******  *  ******  * 


LOOP 

,|KIP  2  OUTPUT  LINES 


PRINT  5  LINES  AS  FOLLOWS 

THE  CONTENTS  OF  THE  MANIPULATED  BEST. PATH  MATRIX  ARE: 

+  TO=12  345  6  7  8  9  10  11  = 


FM 


+  = 


FOR  I 
PRINT 


** 


1  TO 
LINE 


-  ** 


N,  DO 
WITH  I,  B 
BEST. PATH 
BEST . PATH 
BEST . PATH 
BEST. PATH 


JST .  PATHjfl ,  1 )  ,  BEST .  PATH  (1 ,  2 ) , 
I,3),BEST.PAtH(I,4) 

15)  BEST. PATH fi, 6 
1,7)  BEST . PATHl ~  * 

1,9  1 1  BEST. PATH 


gES^PAJ^I^U^S  l2Lm 


AND 

** 


** 


LOOP 

SKIP  2  OUTPUT  LINES 
ALWAYS 

^HEDULE  A  YEN. ROUTING  AT  TIME.V  +  UP . DATE . PERIOD 
RETURN 

£ND  ^ '  YEN . ROUTING 


; ;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

^LpUTINE  FOR  PATH. UPDATE  GIVEN  K,  PREVIOUS  AND  KTRAVEL 

FOR  J  =  1  TO  N,  DO 

IF  UPDATELI StC PREVIOUS, J)  EQ  1 
LET  UPDATELI ST (J. PREVIOUS)  =  0 
LET  CLOCK (J,K 

IF  CLOCK (J,K) 

LET  YElft( J 
LET  BEST. 

ALWAYS 
ALWAYS 
* « LOOP 

IjUjlTURN 

£ND  ’ '  PATH. UPDATE 


=  YEN (PREVIOUS, K) 

+  DISTANCE (J, PREVIOUS) 
LE  YEN(J.K)  \ 

K)  =  CLQ(iK(J,K) 

ATH ( J , K )  =  I 


; ;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

$9UTINE  TO  COMPUTE. CURRENT. DISTANCES 

DEFINE  ARG1.ARG2  AND  ARG3  AS  REAL  VARIABLES 
DEFINE  MEANY. GIVEN. NODES  AS  A  REAL  VARIABLE 
pfFINE  SUMMATION  AS  A  REAL  VARIABLE 

RESERVE  C. LEVEL (*,*)  AS  N  BY  N 
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RESERVE  AVAILCHANNEL ( * , * )  AS  N  BY  N 
RESERVE  MEANY?**)  A$  N  BY  N 
RESERVE  MEANY. GIVEN (*)  AS  12 
TVEN(*) 


^SERVE  PROBY .  GIVEN  ( 

FOR  I  =  1  TO  N,  DO 
,?OR  J  =  1  TO  A,  DO 

IF  I  EQ  J 

let  c:level(i,j)  = 

LET  DISTANCE?!, J)  = 
.  ALWAYS 


AS  12 


9999.0 

9999.0 


IF  I  NE  J 
LET  C.LEVELjfl.J 
LET  DISTANCE?! 
ALWAYS 


J)  =  800.00 
,J)  =  800.00 


,,IF  LINKCONNECT ( I , J )  EQ  1 

LET  NSLOT . AVAIL . I  =  0 
FOR  K  =  1  TO  12,  DO 

IF  INFO ? J , K ,  1  j  LE  0  AND  INFO(I,K,l)  LE  0 
AND  !n£o(I,K,4)  EQ  0 
LET  NSLOT.AVAlt.I  =  NSLOT. AVAIL. I  +  1 
ALWAYS 
, ,  LOOP 

LET  MTJ  =  0 
FOR  KK  =  1  TO  12,  DO 
IF  INFO ( J , KK , 1 )  GT  0 
LET  MTJ  =  MiJ  +  1 
ALWAYS 
LOOP 

IF  NSLOT. AVAIL. I  EQ  0 

LET  C.LEVElTI,J)  =  400.0 
LET  DISTANCE?! , J )  =  400.0 

GO  TO  OTHER. I J 
ALWAYS 


IF  MTJ  EQ  0 

LET  AVAILCHANNEL ( I, J)  =  2*REAL . F (NSLOT . AVAIL . I) / 3 . 0 
LET  C.LEVELCI.jT  =81.0  /  AVAILCHANNEL ( I , J)  -  10 . 1 
LET  DISTANCE?!, J)  = 

C. LEVEL (!,J)  +  ALPHA  *  LINK . ATTENU ( I , J ) 

GO  TO  OTHER. I J 
ALWAYS 


LET  NJ  =  12  -  MTJ 

LET  MEANY. GIVEN. NODES  =0.0 

LET  LARGEST. MRJ  =  MTJ 
IF  MTJ  GE  6 

LET  LARGE ST. MRJ  =  NJ 
ALWAYS 

LET  SMALLEST. MRJ  =  TRUNC.F((MTJ  +  1.0)  /  2.0) 
IF  SMALLEST. MRJ  LT  1 
LET  SMALLEST. MRJ  =  1 
ALWAYS 

FOR  MRJ  =  SMALLEST. MRJ  TO  LARGEST. MRJ,  DO 
LET  MEANY. GIVEN (MRJ)  =0.0 
LET  MAXY  =  MRJ 


IF  MRJ  GT  NSLOT . AVAIL . I 

LET  MAXY  =  NSLOT. AVAIL. I 
ALWAYS 


LET  SUMMATION  =0.0 

LET  AIY  =  1 

LET  BIY  =  MAXY  +  1 

,  ,  FOR  IIY  =  AIY  TO  BIY,  DO 

,  ,  LET  IY  =  IIY  -  1 

LET  TOPI  =  NJ  -  NSLOT. AVAIL. I 
LET  BOTTOMl  =  MRJ  -  IY 
IF  BOTTOMl  GT  TOPI 
LET  ARG1  =0.0 
,  ,  ALWAYS 

LET  TOP 2  =  NSLOT. AVAIL. I 
LET  BOTTOM2  =  IY 
IF  B0TT0M2  GT  TOP2 
LET  ARG2  =0.0 
ALWAYS 

IF  BOTTOM2  GT  T0P2  OR  BOTTOMl  GT  TOPI 
GO  TO  OTHERIY 
r  ,  ALWAYS 

PERFORM  COMBINATION  GIVEN  TOPI  AND  BOTTOMl 
YIELDING  ARG1 

PERFORM  COMBINATION  GIVEN  TOP2  AND  BOTTOM2 
,  ,  YIELDING  ARG2 

;  pTHERIY ' 

LET  PROBY. GIVEN (IIY)  =  ARG1  *  ARG2 
,,  LET  SUMMATION  =  SUMMATION  +  PROBY. GIVEN (IIY) 

LET  MEANY. GIVEN (MRJ)  = 

,  ,  REAL.F(IY)  *  PROBY. GIVEN (IIY)  +  MEANY. GIVEN (MRJ) 

LOOP 

IF  SUMMATION  LT  0.001 

LET  MEANY. GIVEN (MRJ)  =  0.000 
GO  TO  OTHERMRJ 
,  ,  ALWAYS 

,,  LET  MEANY. GIVEN (MRJ)  =  MEANY. GIVEN (MRJ) /SUMMATION 

;  pTHERMRJ ’ 


LET  MEANY. GIVEN. NODES  =  MEANY. GIVEN 


LOOP 


♦  MEANY. GIV 


(MRJ) 
EN .  NOl 


LET  R  =  LARGEST. MRJ  -  SMALLEST. MRJ  ♦  1 
LET  MEANY (I. J)  =  MEANY . GIVEN .NODES  /  REAL.F(R) 


AVAILC 

?  n 


:hAnnel 
REAL .  F 


MEANY . 

(nSlotT 


AVAIL. I)  -  MEANY (I,J))/3.0 


IF  AVAILCHANNEL 
LET  C.  LEVEL  (I., 
LET  DISTANCE? I 
GO  TO  OTHER. I J 
ALWAYS 


NEL(I ,  J 

lhlhm 


)  LT  0.20 
395.0 
=  395.0 
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LET  CiLEyELi5AJ^=  81.0_/_AyAILgHANNEL(I,J)  -  10.1 


LET  DISTANCE (I . 


C.LEVEL(I,J; 

+  ALPHA  *  LlNK.ATTENU(I,J) 


.  ALWAYS 
' OTHER. IJ' 
fV°°P 

V9°p 


IF  PATHPRNT  EQ  1 

PTJTMT  S  T  TMFs  AC  r*nT  T 

THE  CONTENTS  OF  THE  DISTANCE  ARRAY  AFTER  UPDATING 
THE  LINK  DISTANCES  ARE: 

+  TO  =  1  2  3  4  5  6 

FM  +  = 

FOR*l"  =  ’ I'to’nJ  ~DO  ----------  -  - 

PRINT  1  LINE  WITH  I,  DISTANC 
DISTANCE (I , 3 ) , DISTANCE 

**  +  miAicmA 

•  •  •  • 

LOOP 

SKIP  1  OUTPUT  LINE 
PRINT  4  LINES  AS  FOLLOWS 
CONTENTS  OF  THE  DISTANCE  ARRAY ( CONT . ) 

+  TO  =  8  9  10 

FM  ♦  = 


A*'*.'..'. 


11 


FOR  I  =  1  TO  N,  DO 

PRINT  1  LINE  ftlTH  I,  DISTANCED  ,  8  )  ,  DISTANCE (I, 9)  , 

**  =diiimse  J1  •  i8L$p*Diate  t  i  ■  hU  s  ALLoii 

LOOP 

SKIP  2  OUTPUT  LINES 
ALWAYS 

RETURN 

^D  ’’  COMPUTE.  CURRENT.  DISTANCES 


; ;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

ROUTINE  FOR  COMBINATION  GIVEN  TOP  AND  BOTTOM 
YIELDING  ANS 

DEFINE  ANSI,  ANS2  AND  ANS 3  AS  REAL  VARIABLES 
9£FINE  CRESULT  AS  A  REAL  VARIABLE 

LET  ITOP  =  TOP 

LET  IBOTTOM  =  BOTTOM 

VYT  IC  =  ITOP  -  IBOTTOM 

PERFORM  FACTORIAL  GIVEN  ITOP  YIELDING  ANSI 
PERFORM  FACTORIAL  GIVEN  IBOTTOM  YIELDING  ANS2 
?|RFORM  FACTORIAL  GIVEN  IC  YIELDING  ANS 3 

LET  CRESULT  =  ANSI  /  (ANS3  *  ANS2 ) 

9|T  ANS  =  CRESULT 

RETURN 

END  ’ ’  COMBINATION 


; :  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

$9UTINE  FOR  FACTORIAL  GIVEN  IVALUE  YIELDING  FAC. VALUE 

DEFINE  FAC. VALUE  AS  A  REAL  VARIABLE 
pfFINE  INUM  AS  A  INTEGER  VARIABLE 

LET  INUM  =  IVALUE 
IF  INUM  EQ.  1  OR  INUM  EQ  0 
LET  FAC /VALUE  =  1.0 
RETURN 
ALWAYS 

IF  INUM  GE  2 

LET  FAC. VALUE  =  1.0 
FOR  I  =  2  TO  INUM,  DO 

LET  FAC. VALUE  =  FAC. VALUE  *  REAL. F (I) 

LOOP 

RETURN 

ALWAYS 

PRINT  1  LINE  AS  FOLLOWS 

YOUR  INPUT  DATA  TO  THE  FACTORIAL  ROUTINE  IS  NEGATIVE 
fERFORM  TERMINATION 

RETURN 

$tyD  ' ’  FACTORIAL 


; ;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
£YENT  NEW. CALL  SAVING  THE  EVENT  NOTICE 
»  » 

' ’  THIS  EVENT  GENERATES  CALL  AND  SENDS  "REQUEST  FOR 
; ;  SERVICE"  FROM  a  CALLING  NODE  TO  A  CALLED  NODE 

f  f 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS 
NEW  CALL  GENERATED  AT  TIME  ****.******  SECS 
SKIP  2  OUTPUT  LINES 
/OTWAYS 

f  I 

P£FINE  DELAY 1  AS  A  REAL  VARIABLE 
V£T  CKT.SUM  =  CKT.SUM  +  1 
IF  CKT.SUM  GE  MAX.CKT 

PRINT  2  LINES  WITH  TIME.V  AND  MAX.CKT  AS  FOLLOWS 
NUMBER  OF  CRTS  ATTEMPTED  EXCEEDS  ****  CRTS  PERMITTED. 
SIMULATION  HALTED  AT  ****.***  SEC 
,§KIP  1  OUTPUT  LINE 

PERFORM  TERMINATION 
RETURN 
^WAYS 

SCHEDULE  A  NEW. CALL 

TIME.V  +  EXPONENTIAL. F (MEAN. SYS. CALL. ARRIV, 5) 


f  f 


SELECT  A  TRANSMITTER 


I  f 

| $ELECTAGAIN ' 

^T  XMTR  =  RANDI .  F  ( 1 ,  N ,  1 ) 

;  SELECT  A  CORRESPONDING  RECEIVER 
»  » 

9$T  RCVR  =  RANDI .  F  ( 1 ,  N ,  2 ) 

IF  RCVR  EQ  XMTR 
GO  TO  SELECT AG AIN 
ALWAYS 

LET  ORG . NODE  =  XMTR 
LET  DEST . NODE  =  RCVR 

pjST  CALLED.  NODE  =  BEST .  PATH  (XMTR ,  RCVR) 

IF  CALLED. NODE  LT  1  OR  CALLED. NODE  GT  12 
PRINT  1  LINE  AS  FOLLOWS 
CALLED. NODE  WAS  NOT  DETERMINED  PROPERLY 
PERFORM  TERMINATION 
ALWAYS 


PRINT  1  LINE  WITH  CKT . SUM , ORG . NODE , DEST . NODE  AND  TIME.V 

AS  FOLLOWS 

CIRCUIT  ***  FROM  NODE  **  TO  **  BEGUN  AT  *********  SECS 
$KIP  1  OUTPUT  LINE 


^T  BK. TO. DEST  =  BK. TO. DEST  +  1 

DO 


FOR  J  =  1  TO  12  . 

IF  INFO (XMTR, J,l)  EQ  0  AND  INFO (XMTR , J , 4 )  EQ  0 
INFO (CALLED. NODE, J,l)  EQ  0 
GO  TO  'ONlY 
ALWAYS 
VQOP 


AND 


IF  PRNT  EQ  0 

PRINT  3  LINES  WITH  ORG . NODE , CALLED . NODE  AND  CKT . SUM 

AS  FOLLOWS 

NO  MUTUALLY  AVAILABLE  SLOTS  BETWEEN  THE  ORG . NODE  **  AND 
CALLED  NODE  **  TO  CARRY  THE  REQUEST  SERVICE  MESSAGE  FOR 
CIRCUIT  NUMBER  ***** 

SKIP  1  OUTPUT  LINE 
ALWAYS 


LET  CKT. FAILED  =  CKT. FAILED  +  1 
LET  BK. TO. DEST  =  BK. TO. DEST  -  1 
LET  P.BD. COUNTER  =  P.BD. COUNTER  + 
99  TO  LAST. NEW. CALL 


t  I 
t  » 
»  f 


SELECTS  A  CURRENT  SLOT  RANDOMLY  AND 
CONTINUES  PROCESSING 


:9ni* 

9£T  CURRENT. SLOT 


RANDI. F( 1,12, 3) 


FINDS  THE  NEXT  MUTUALLY  AVAILABLE  SLOT 


LET  SLOT1  =  0 
V|T  FRAME 1  =  0 

IF  CURRENT. SLOT  EQ  12 


GO  TO  NEXT. FRAME 1 
JftWAYS 

=  CURRENT. SLOT 


DO. 


^,£T  K 

J  -  K  TO  12 

INFO (ORG . NODE ! jTl)  GT  0  OR  INFO (ORG . NODE , J 
T„SPECINFO (ORG. NODE, CALLED. NODE, J)  =  0 

AND 


FOR 
IF 
LET 

ALWAYS 

IF  SPECINFO (ORG. NODE .CALLED. NODE, J)  EQ  6 


EQ  0  AN6" 

''AND  INFO  (ORG.  NODE. 


iJJC  LiUlLU  W  V  W  uvj  .  ilVi/Li  .  CALLE 
INFOfCALLED . NODE , J , iT  E 
INFO f ORG. NODE, J,l)  EQ  0 
LET  SLOTl  =  J 
LET  SPECINFO (ORG. NODE, CALLED. NODE, J)  =  0 
GO  TO  ON2 
ALWAYS 

V90p 

LET  FRAME 1  =  1 

FOR  J  =  I  TO  CURRENT. SLOT  ,  DO 
IF  INFO (ORG. NODE, J, I j  GT  0  OR  INFO (ORG . NODE ,J , 
LET  SPECINFO (ORG. NODE, CALLED. NODE, J)  =  0 
ALWAYS 

IF  SPECINFO (ORG. NODE .CALLED. NODE, J)  EQ  6  AND 
INFO (CALLED. NODE J, 1}  EQ  0  AND  , 

INFO (ORG. NODE, J,l)  EQ  0  AND  INFO (ORG . NODE , 
LET  SLOTl  =  J  5  5  7  ^ 

LET  SPECINFO (ORG. NODE, CALLED. NODE, J)  =  0 
GO  TO  ON2 
ALWAYS 
VQOP 

LET  FRAME 1  =  0 
FOR  J  =  K  TO  12  ,  DO 

IF  INFO (ORG. NODE, J,l)  EQ  0  AND  INFO (ORG . NODE , J 
AND  INFO ( CALLED . NODE , J , 1 )  EQ  0 
LET  SLOTl  =  J 
GO  TO  ON 2 
ALWAYS 
VQOP 

LET  FRAME 1  =  1 

FOR  J  =  1  TO  CURRENT. SLOT.  DO 

IF  INFO (ORG . NODE , J , 1 j  EQ  0  AND  INFO ( ORG . NODE , J 
AND  INFO (CALLED. NODE, J,l)  EQ  0 
LET  SLOTl  =  J 
GO  TO  ON2 
ALWAYS 
LOOP 

Q9  TO  YY 


’NEXT. FRAME 1’ 

»  » 

LET  FRAME 1  =  1 
FOR  J  =  1  TO  12 ,  DO 

IF  INFO (ORG. NODt.J.l)  GT  0  OR  INFO (ORG . NODE , J , 
LET  SPECINFO (ORG. NODE, CALLED. NODE, J)  =  0 
ALWAYS 

IF  SPECINFO (ORG. NODE .CALLED. NODE, J)  EQ  6  AND 
INFO ( CALLED . NODE , J , lT  EQ  0  AND  , 

INFO (ORG. NODE, J , 1 )  EQ  0  AND  INFO (ORG . NODE , 
LET  SLOTl  =  J 

LET  SPECINFO (ORG. NODE, CALLED. NODE, J)  =  0 
GO  TO  ON2 
ALWAYS 
LQOP 

FOR  J  =  1  TO  12,  DO 
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4)  GT  0 

J ,4)  EQ  0 

4)  GT  0 

J ,4)  EQ  0 

,4)  EQ  0 

r,4)  EQ  0 

4)  GT  0 

J,4)  EQ  0 


*  »  •  »  *.  »  ,  * 

■V.  VhVV»  .a 


IF  INFO (ORG. NODE, J,l)  EQ  0  AND  INFO ( ORG . NODE ,  J ,  4  )  EQ  0 
AND  INFO (CALLED. NODE ;j,l)  EQ  0 
LET  SLOT1  =  J 
GO  TO  0N2 
ALWAYS 

VQOP 


PRINT  1  LINE  WITH  CKT.SUM  AS  FOLLOWS 
CIRCUIT  NO.****  FAILED  IN  EVENT  NEW  CALL 
$%I?  2  OUTPUT  LINES 

LET  CKT. FAILED  =  CRT. FAILED  +  1 
LET  BK.TO.DEST  =  BK.TO.DEST  -  1 
LET  P.BD. COUNTER  =  P.BD. COUNTER  +  1 
RETURN 

' ;  ON 2  IDENTIFIES  A  SLOT  TO  CARRY  THE  SERVICE  MESSAGE 
; ;  TO  THE  CALLED  NODE  AND  CREATES  THE  SERVICE  MESSAGE 

;pN2’ 

CREATE  A  MESSAGE 

LET  CKT. NUMBER (MESSAGE)  =  CKT.SUM 
LET  TYPECMESSAGEj  =  1 
LET  ORIGINATOR (MESSAGE)  =  ORG . NODE 
LET  DESTINATION (MESSAGE)  =  DEST .NODE 
LET  FM. NODE (MESS AGE)  =  ORG. NODE 
LET  TO. NODE (MESSAGE)  =  CALLED. NODE 
LET  START. TIME (MESSAGE)  =  TIME.V 
LET  SLOT. ARRIVAL (MESS AGE)  =  SLOTI 
LET  SLOT.ASSIGN(MESSAGE)  =  SLOTI 
LET  RECSLOtTmESSAGE)  =  SLOTI 
LET  DIRECTION(MESSAGE)  =  0 
£fT  REATTEMPT (MESSAGE)  =  1 

IF  PRNT  EQ  0 

PRINT  2  LINES  WITH  SLOTI  AND  FRAME 1  AS  FOLLOWS 
SLOT  **  OF  FRAME  **  WAS  USED  TO  CARRY  REQUEST  FOR 
SERVICE  FROM  CALLING  NODE  TO  THE  CALLED  NODE 
SKIP  1  OUTPUT  LINE 
ALWAYS 

; ;  CALCULATES  WHEN  THE  SERVICE  MESSAGE  WILL  ARRIVE  AT 
THE  CALLED  NODE  AND  SCHEDULES  ITS  ARRIVAL 


LET  DELAY 1  =  (REAL. F( 12*FRAME1  +  SLOTI  -  CURRENT. SLOT) ) 
*  SLOT . DURATION 


IF  PRNT  EQ  0 
PRINT  2  LINES  WITH  CKT . SUM , CALLED . NODE  AND 
?TJME.V  +  DELAY 1)  AS  FOLLOWS 
CKT  *****  HAS  SCHEDULED  AN  REQUEST  FOR  SVC  AT  NODE  *• 
AT  TIME  ***  **** 

SKIP  2  OUTPUT  LINES 
ALWAYS 


MAKE  THOSE  SLOTS  ALLOCATED  FOR  ROUTING  MESSAGES 
AVAILABLE  FOR  VOICE  TRAFFIC 


SCHEDULE  A  REQUEST. FOR. SVC  GIVEN  MESSAGE 
TIME.V  +  DELAY 1 

'LAST. NEW. CALL' 

IF  PRNT  EQ  0 


PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  THE  END  OF  NEW  CALL  ARE 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
ALWAYS 


RETURN 

£$D  NEW. CALL 


| j  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
$YENT  REQUEST. FOR. SVC  GIVEN  MSG I  SAVING  THE  EVENT  NOTICE 

'  ’  THIS  EVENT  SIMULATES  ACTIONS  PERFORMED  AT  A  CALLED 
NODE  AFTER  RECEIVING  AN  REQUEST  FOR  SERVICE  FROM  A 
; ;  CALLING  NODE 

^T  MESSAGE  =  MSG1 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS 
REQUEST. FOR. SVC  PERFORMED  AT  TIME 
SKIP  2  OUTPUT  LINES 
ALWAYS 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  START  OF  REQUEST . FOR. SVC  ARE: 
LIST  ATTRIBUTES  OF  MESSAGE 
f$KIP  2  OUTPUT  LINES 

ALWAYS 

9$FINE  DELAY2  AND  DELAYR  AS  REAL  VARIABLES 
LET  FRAME. REC  =  0 


OUTPUT  LINES 


^T  SLOT. REC  =  CURRENT.  SLOT 
FOR  I  =  I  TO  12,  DO 


IF  INFO (CALLED. NODE, 1.1)  EQ  CKT. NUMBER (MESSAGE) 
PRINT  1  LINE  AS  FOLLOWS 


THE  ROUTING  IS  NOT  LOOP  FREE 
PERFORM  TERMINATION 
ALWAYS 

V90p 


IF  INFO (CALLED. NODE, SLOT. REC, 4) 
INFO (CALLED . NODE , SLOT . REC , 1 ) 
GO  TO  OKI 
iJO^WAY  S 

IF  REATTEMPT (MESSAGE)  LT  MAX. AT' 
LET  REATTEMPT (MESSAGEJ  =  REATT1 

T .  REC 


LT  SLOT. DEPTH  AND 
EQ  0 


—  _ . — -j _ .  .  MAX.  ATTEMPT 

LET  REATTEMPT (MESSAGE!  =  REATTEMPT (MESSAGE) 
,^ET  SLOT. USED  =  SLOT. REC 

LET  FRAMER  =  1 
LET  HR  =  SLOT. USED  ♦  1 
FOR  IR  =  IIR  TO  12.  DO 
IF  INFO ( CALLING. NdDE,IR,l)  GT  0  OR 
INFO (CALLING. NODE, IR, 4)  GT  0 
LET  SPECINFO ( CALLING . NODE , CALLED . NODE , IR ) 
ALWAYS 


IF  SPECINFO( CALLING. NODE, CALLED. NODE, IR)  EQ  6  AND 
INFO (CALLED. NODE. IR.l]  EQ  0  AND 
INFO (CALLING. NODE, IR,1)  EQ  0  AND 
INFO (CALLING. NODE, IR, 4)  EQ  0 
LET  SLOTR  =  IR 

LET  SPECINFOICALLING. NODE, CALLED. NODE, IR)  =  0 
GO  TO  MORE. ATTEMPT 
ALWAYS 

V9°p 

IF  SLOT. USED  EQ  1 
GO  TO  XX 
QUAYS 

LET  FRAMER  =  2 
LET  LJR  =  SLOT. USED  -  1 
FOR  JR  =  1  TO  LJR.  DO 
IF  INFO (CALLING. NODE, JR, 1)  GT  0  OR 
INFO (CALLING. NODE, JR. 4 j  GT  0 
LET  SPECINFO(CALLINd.NtiDE, CALLED. NODE, JR)  =  0 
ALWAYS 

IF  SPECINFO( CALLING. NODE, CALLED. NODE, JR)  EQ  6  AND 
INFO (CALLED. NODE, JR, l)  EQ  0  AND 
INFO (CALLING. NODE, JR, 1)  EQ  0  AND 
INFO (CALLING. NODE, JR, 4)  EQ  0 
LET  SLOTR  =  JR 

LET  SPECINFO( CALLING. NODE, CALLED. NODE, JR)  =  0 
GO  TO  MORE. ATTEMPT 
ALWAYS 
,VOOP 

LET  FRAMER  =  1 

FOR  IR  =  (SLOT. USED  +  1)  TO  12.  DO 
IF  INFO (CALLING. NODE, IR,1)  EQ  0  AND 


IR  =  (SLOT. USED  +  1)  TO  12.  DO 
INFO (CALLING. NODE, IR,1)  EQ  0  AND 
INFO (CALLING. NODE, IR. 4)  EQ  0  AND 


v  ,  it  v  1/ u  •  iiv  >  7  j  uv  v  mu/ 

INFO (CALLED. NODE, iR,l)  EQ  0 
LET  SLOTR  =  IR 
GO  TO  MORE. ATTEMPT 
ALWAYS 
,?OOP 

IF  SLOT. USED  EQ  1 
GO  TO  XX 
ALWAYS 

LET  FRAMER  =  2 

FOR  JR  =  1  TO  (SLOT. USED  -  1),  DO 
IF  INFO (CALLING. NODE, JR, 1)  EQ  0  AND 
INFO (CALLING. NODE .JR, 4)  EQ  0  AND 
INFO (CALLED . NODE , JR , I )  EQ  0 
LET  SLOTR  =  JR 
GO  TO  MORE. ATTEMPT 
ALWAYS 
LOOP 

,QO  TO  XX 
|  NIORE .  ATTEMPT ' 

LET  DELAYR  =  (REAL . F( SLOTR  -  SLOT. USED)  +  FRAMER* 12.0) 
*  SLOT . DURATION 
LET  RECSLOT (MESSAGE )  =  SLOTR 
LET  DIRECTIONTmESSAGE)  =  0 
LET  SLOT. ASSIGN (MESSAGE)  =  SLOTR 
,VET  SLOT. ARRIVAL (MESSAGE)  =  SLOTR 

SCHEDULE  A  REQUEST . FOR. SVC  GIVEN  MESSAGE 
AT  TIME.V  ♦  DELAYR 


f^T  TIME 
RETURN 


IF  PRNT  EQ  0 

PRINT  3  LINES  WITH  CKT . NUMBER (MESSAGE ) . 

ORIGINATOR(MESSAGE) .  DESTINATION (MESSAGE ) , 
TIME . V ,  TO. NODE (MESSAGE)  AND  FM. NODE (MESSAGE) 
AS  FOLLOWS 

CKT  ****  FM  **  TO  **  BROKEDOWN  AT  TIME  ****.****** 
NO  MUTUALLY  AVAILABLE  SLOT  BETWEEN  THE  CALLED  NODE 
AND  THE  CALLING  NODE  ** 

SKIP  2  OUTPUT  LINE 
^VWAYS 

; £XIT ' 

LET  CKT. FAILED  =  CKT . FAILED  +  1 
V|T  BK.TO.DEST  =  BK.TO.DEST  -  1 

IF  ORIGINATOR (MESSAGE)  EQ  FM. NODE (MESSAGE) 

LET  P.BD. COUNTER  =  P.BD?COUNTER  +  I 
DESTROY  THE  MESSAGE  CALLED  MESSAGE 
RETURN 
ALWAYS 

LET  BK.TO.ORG  =  BK.TO.ORG  +  1 

LET  TYPE(MESSAGE)  =  PARTIAL . BREAKDOWN 

LET  DIRECTIONIMESSAGeT  =  3 

V?T  START. TIME (MESSAGE)  =  TIME.V 

SCHEDULE  A  TO . ORG . BREAKDOWN  GIVEN  MESSAGE 
AT  TIME.V  +  BREAKTIME 
, RETURN 

I  » 

J ;  FIND  THE  NEXT  MUTUALLY  AVAILABLE  SLOT 


:9Ki' 


LET  SL0T2  =  0 
VfT  FRAME 2  =  0 


IF  CURRENT. SLOT  E0  12 
GO  TO  NEXT . FRAMEZ 
ALWAYS 


V£T  L  =  CURRENT. SLOT  +  1 


OR 


GT  0 
GT  0 

,  CALLING . NODE , J )  = 


FOR  J  =  L  TO  12  .  DO 
IF  INFO ( CALLED. n6dE,J,1 
INFO(CALLED . NODE .J, 4 
LET  SPECINFO(CALLEf>.lfc> 

ALWAYS 

IF  SPECINFO( CALLED. NODE. CALLING. NODE, J)  EQ  6 
INFO (CALLING. NODE , J, l)  EQ  0  AND 
INFO  (  CALLED .  NODE ,  jf ,  i )  EQ  0  AND 
INFO (CALLED . NODE ,J, 4 j  EQ  0 
LET  SPECINFO (CALLED. NODE, CALLING. NODE, J)  =  0 
LET  SL0T2  =  J 
GO  TO  0K2 
ALWAYS 
V9°p 


AND 


LET  FRAME 2  =  1 

FOR  J  =  1  TO  CURRENT . SLOT ,  DO 
IF  INFO (CALLED. NODE, J,l)  GT  0  OR 
INFO (CALLED. NODE, J, 4)  GT  0 


LET  SPECINFO( CALLED. NODE, CALLING. NODE, J)  =  0 
ALWAYS 

IF  SPECINFO (CALLED. NODE. CALLING. NODE, J)  EQ  6  AND 
INFO (CALLED. NODE, J,1  EO  0  AND 
INFO (CALLED. NODE, J,l)  EQ  0  AND 
INFO (CALLED. NODE. J, 41  EQ  0 
.  LET  SPECINFO (CALLED. NODE, CALLING. NODE, J)  =  0 
LET  SLOT 2  =  J 
GO  TO  0K2 
ALWAYS 

V90p 

LET  FRAME 2  =  0 
FOR  J  =  L  TO  12,  DO 
IF  INFO(CALLED.NODE 
INFO (CALLED. NODE, 

INFO (CALLING . NODE 
LET  SLOT 2  =  J 
GO  TO  OK2 
ALWAYS 
V9°p 

LET  FRAME 2  =  1 


0  AND 
0  AND 
Q  0 


TO  CURRENT. SLO 
CALLED. NODE, J,1 
CALLED . NODE , J ,4 
CALLING . NODE , J , 
J 


0  AND 
0  AND 
Q  0 


FOR  J  = 

IF  INFO 
INFO 
INFO 

LET  SLOT 2 
GO  TO  OK2 
ALWAYS 
LOOP 

99  TO  YYY 

I tyEXT . FRAME 2 ' 

LET  FRAME 2  =  1 
FOR  J  =  1  TO  12, 

IF  INFO (CALLED 
INFOfCALLE 
LET  SPECINFO 
ALWAYS 

IF  SPECINFO (CALLED. NODE. CALLING. NODE, J)  EQ  6 
INFO (CALLED. NODE, J,1J  EQ  0  AND 
INFO (CALLED. NODE, J,1J  EQ  C  AND 

Calling . node , j )  = 


L2 ,  DO 

£D .  NODE ,  J  ,  1 )  G 
!D .  NODE  ’  J ,  4  i  G 
)(CALLEf>.^ODE, 


GT  0  OR 
GT  0 

CALLING. NODE, J)  =  0 


AND 


0  AND 
0  AND 

Q  0 


INFO (CALLED . NODE , J , 4 ' 

LET  SPECINFO(CALLED.NOl 
LET  SLOT2  =  J 
GO  TO  OK2 
ALWAYS 
V9°p 

FOR  J  =  1  TO  12,  DO 
IF  INFO (CALLED. NODE 
INFO (CALLED. NODE, 

INFO (CALLING . NODE 
LET  SLOT2  =  J 
GO  TO  OK2 
ALWAYS 
V9°p 
;yyy’ 

PRINT  1  LINE  WITH  CRT. NUMBER (MESS AGE)  AS  FOLLOWS 
CIRCUIT  ***"  FAILED  IN  EVENT  REQUEST. FOR. SVC 
9$IP  1  OUTPUT  LINE 

99  TO  EXIT 

’ ’  OK2  IDENTIFIES  THE  SLOT  TO  CARRY  THE  SLOT  ASSIGNMENT 
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'  AND  SENDS  REQUEST  BACK  TO  THE  CALLING  NODE  AND  ALSO 
COMPUTES  WHEN  THE  SERVICE  MESSAGE  WILL  ARRIVE  AT 
I ;  THE  CALLING  NODE 

f  I 

;qk2' 

LET  DELAY 2  =  (REAL . F( 12*FRAME2  ♦  SLOT2  -  CURRENT . SLOT ) ) 

, ,  "  SLOT . DURATION 

; '  ASSIGNS  SLOTS .UPDATES  MESSAGE  AND 
'  SCHEDULES  RESPONSE .TO .REQUEST  AT 
; ;  THE  CALLED  NODE 

f  1 

LET  SLOT. ARRIVAL (MESSAGE)  =  SLOT2 
LET  SLOT.ASSIGNTmESSAGE)  =  SLOT.REC 
VfT  RECSLOT (MESSAGE)  =  SLOT.REC 

IF  PRNT  EQ  0 

PRINT  2  LINES  WITH  CKT .NUMBER (MESSAGE).  FM. NODE (MESSAGE) 
.  AND  (TIME . V  +  DELAY2)  AS  FOLLOWS 
CIRCUIT  ****  HAS  SCHEDULED  A  RESPONSE  TO  SVC  AT  NODE  ** 
AT  TIME  ****  **** 

$KIP  2  OUTPUT  LINES 

PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  END  OF  REQUEST  FOR  SVC  ARE: 

LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  1  OUTPUT  LINE 
ALWAYS 

SCHEDULE  A  RESPONSE . TO . REQUEST  GIVEN  MESSAGE 
AJ  TIME . V  +  DELAY2 

RETURN 

£ND  ’ ’  REQUEST  FOR  SERVICE 

T  » 

*  ! 

»  f 

£YENT  RESPONSE. TO. REQUEST  GIVEN  MSG2 

’ ’  THIS  EVENT  SIMULATES  ACTIONS  PERFORMED  AT  A  CALLING 
’  NODE  AFTER  RECEIVING  A  RESPONSE  TO  REQUEST  FROM 
; ;  A  CALLED  NODE 

»  » 

V$T  MESSAGE  =  MSG2 
IF  PRNT  EQ  0 

PRINT  I  LINE  WITH  TIME.V  AS  FOLLOWS 
, RESPONSE . TO . REQUEST  PERFORMED  AT  TIME  ****.***** 

SKIP  2  OUTPUT  LINES 
ALWAYS 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  START  OF  RTR  ARE: 

LIST  ATTRIBUTES  OF  MESSAGE 
,|KIP  2  OUTPUT  LINES 

£VWAYS 

P^FINE  DELAY 3  AND  DELAYR  AS  REAL  VARIABLES 
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LET  FRAME. REC  =  0 

LET  CALLING. NODE  =  FM. NODE (MESSAGE) 

LET  CALLED. NODE  =  TO . NODE (MESSAGE T 
ffT  SLOT. REC  =  SLOT. ARRIVAL (MESSAGE) 

IF  INFO (CALLING. NODE. SLOT. REC, 1)  EQ  0 
.  AND  INFO (CALLING. ftODE, SLOT. REC, 4)  LT  SLOT. DEPTH 
GO  TO  CORRECT 
ALWAYS 


IF  REATTEMPT (MESSAGE)  LT  MAX. ATTEMPT 
LET  REATTEMPT (MESSAGE)  =  REATTEMPT (MESSAGE) 
£ET  SLOT. USED  =  RECSLOT (MESSAGE) 


DO 

OR 


,  CALLED . NODE , IR ) 


LET  FRAMER  =  1 

FOR  IR  =  (SLOT. USED  ♦  1)  TO  12. 

IF  INFO (CALLING. NODE, IR,1)  GT  0 
INFO (CALLING. NODE, IR! 4)  GT  0 
LET  SPECINFO ( CALLING . NODE , 

ALWAYS 

IF  SPECINFO (CALLING. NODE. CALLED. NODE, IR)  EQ  6  AND 
INFO (CALLED. NODE, IR,1)  EQ  0  AND 
INFO ( CALLING. NOD$, ift, 1)  EQ  0  AND 
INFO (CALLING. NODE. IR, 4)  EQ  0 
LET  SPECINFO (CALLING. NODE, CALLED. NODE, IR)  =  0 
LET  SLOTR  =  IR 
GO  TO  MORE. ATTEMPT 
ALWAYS 

,V°op 

IF  SLOT. USED  EQ  1 
GO  TO  XX 
ALWAYS 


LET  FRAMER  =  2 
FOR  IR  =  1  TO  (SLOT. USED  - 
IF  INFO (CALLING. NODE, IR,1) 
INFO (CALLING .NODE ,IR, 4) 
LET  SPECINFO ( CALLING. nGdE, 
ALWAYS 


1),  DO 
GT  0  OR 
GT  0 

CALLED. NODE, IR) 


=  0 


IF  SPECINFO (CALLING. NODE 
INFO (CALLED . NODE , IR , 1 
INFO (CALLING . NODE , IR , 1 
INFO (CALLING . NODE , IR , 4 

let  specinfoTcalli^g . fto; 

LET  SLOTR  =  IR 
GO  TO  MORE. ATTEMPT 
ALWAYS 

,V°op 


CALLED. NODE, IR)  EQ  6  AND 
EQ  0  AND 
EQ  0  AND 
EQ  0 

E, CALLED. NODE, IR)  =  0 


Q  12, 

j  18 

EQ  0 


LET  FRAMER  =  1 
FOR  JR  =  (SLOT. USED  +  1)  T 
IF  INFO (CALLING. NODE, JR, 1 
INFO (CALLING . NODE .JR . 4 
INFO (CALLED . NODE ,  OR , 1 ) 

LET  SLOTR  =  JR 
GO  TO  MORE. ATTEMPT 
ALWAYS 
fVOOP 

IF  SLOT. USED  EQ  1 
GO  TO  XX 
WAYS 

LET  FRAMER  =  2 

FOR  JR  =  1  TO  (SLOT. USED  -  1), 
IF  INFO (CALLING. NODE, JR, 1)  EQ 


DO 

0  AND 
0  AND 


DO 

0  AND 


INFO (CALLING. NODE, JR, 4)  EQ  0  AND 
INFO f CALLED . NODE ,^R, 1)  EQ  0 
ST  SLOTR  =  JR 


LET  SLOTR  =  JR 
GO  TO  MORE. ATTEMPT 
ALWAYS 
LOOP 

,90  TO  XX 
’MORE. ATTEMPT’ 


LET  DELAYR 


LET  RECSLOT(MES 
LET  SLOT. ASSIGN 


($EAL.F( SLOTR  -  SLOT . REC W FRAMER 
*  SLOT . DURATION 
ESSAGE)  =  0 
GN(MESSAGE)  =  0 


12.0 


LET  SLOT. ASSIGN (MESSAGE)  =  0 
LET  DIRECTIONfMESSAGE)  =  0 
,  l^ET  SLOT.  ARRIVAL  (MESSAGE)  =  SLOTR 

SCHEDULE  A  REQUEST . FOR. SVC  GIVEN  MESSAGE 
AT  TIME . V  +  DELAYR 


, AT  TIME 

RETURN 

ALWAYS 

’XX' 


IF  PRNT  EQ  0 
PRINT  3  LINES  WITH  CKT . NUMBER (MESSAGE ) . 

ORIGINATOR (MESSAGE) ,  DESTINATION  (.MESSAGE)  , 

TIME . V ,  FM. NODE (MESSAGE)  AND  TO. NODE (MESSAGE) 

as  fqllOws 

CKT  ****  FM  **  TO  **  BROKE  DOWN  AT  ***********  DUE  Tq 
NO  MUTUALLY  AVAILABLE  SLOT  BETWEEN  THE  CALLED  NODE  ** 
AND  THE  CALLING  NODE  ** 

SKIP  2  OUTPUT  LINES 
ALWAYS 

LET  TYPE (MESSAGE)  =  PARTIAL. BREAKDOWN 
LET  CKT. FAILED  =  CKT. FAILED  ♦  1 
LET  BK.TO.DEST  =  BK.TO.DEST  -  1 
LET  BK.TO.ORG  =  BK.TO.ORG  ♦  1 
V|T  START. TIME (MESSAGE)  =  TIME.V 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  CKT. NUMBER (MESS AGE)  AND  TIME.V 
AS , FQLLOWS 

CIRCUIT  *****  FAILED  TO  CONNECT  AT  TIME  *********** 
SKIP  2  OUTPUT  LINES 
ALWAYS 


IF  FM. NODE (MESSAGE)  EQ  ORIGINATOR (MESSAGE) 
LET  RECSLOTTmESSAGE)  =  13 
,£ET  DIRECTION (MESSAGE)  =  0 

SCHEDULE  A  TO . DEST . BREAKDOWN  GIVEN  MESSAGE 
AT  TIME.V  +  BREAKTIME 
RETURN 
^WAYS 

f  I 

,VET  DIRECTION (MESSAGE)  =  4 

SCHEDULE  A  TO . ORG . BREAKDOWN  GIVEN  MESSAGE 
,fT  TIME.V  +  BREAKTIME 

, RETURN 
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; CORRECT ' 

LET  INFO (CALLING . NODE , SLOT . ASSIGN (MESSAGE ) , 1 ) 

=  ckt.number(messAge)  ,  %  % 

LET  INFO (CALLING. NODE, SLOT. AS SIGN( MESSAGE) ,2)  =  SLOT.REC 
LET  INFOXCALLING . NODE .SLOT . ASSIGN (MESSAGE ) , 3 )= CALLED . NODE 
LET  TSLOT  =  SLOT . ASSIGnTmESSAGEJ 
LET  SPECINFO ( CALLING . NODE , CALLED . NODE , TSLOT ) 

let  Infoxcalling. node, slot.rec, 4)  v 

=  INFO  (CALLING.  NOf)E,  SLOT.REC,  4)  +  1 
LET  XSLOT. CALLED  =  SLOT.REC 
LET  RSLOT. CALLED  =  SLOT .ASSIGN (MESSAGE) 

LET  SLOT. ARRIVAL (MESSAGE)  =  RSLOT . CALLED 
LET  SLOT.ASSIGNTmESSAGE)  =  XSLOT. CALLED 
VfT  RECSLOT (MESSAGE)  =  XSLOT . CALLED 


LET  INFO ( CALLED . NODE , XSLOT . CALLED , 1 )  =  CKT . NUMBERXMESSAGE ) 
LET  INFO (CALLED. NODE, XSLOT. CALLED, 2 )=RSLOT. CALLED 
LET  INFOf CALLED. NODE .XSLOT . CALLED ,3 1= CALLING . NODE 
LET  SPECINFO  (CALLED .  l&ODE,  CALLING .  NODE ,  XSLOT  .  CALLED)  =  0 
LET  INFOtCALLED. NODE, RSLOT. CALLED, 4)  v 
=  INFO (CALLED . NODE , RSLOT . CALLED ,4)+I 

CHECK  WHETHER  THE  CIRCUIT  IS  COMPLETE 
IF  YES,  CALL  THE  COMPLETE. CKT  ROUTINE  AND 
COLLECT  STATISTICAL  DATA 

IF  TO. NODE (MESSAGE)  EQ  DESTINATION (MESSAGE) 

LET _ S TART A  T IME  ( MESSAGE!  s  TIME .  V_  -  START  .  TIME  (MESSAGE ) 


PERFORM  VIRTUAL. CKT  GIVEN  MESSAGE 
RETURN 
ALWAYS 

IF  THE  CKT  HAS  NOT  BEEN  ESTABLISHED  ALL  THE  WAY  TO 
THE  DESTINATION  ,THEN  SPECIAL  ACTION  MUST  BE  TAKEN 
TO  ESTABLISH  THE  NEXT  LINK  TO  THE  DESTINATION 


LET  FM. NODE (MESSAGE)  =  TO . NODE (MESSAGE ) 

LET  TO.NODEXmESSAGE) 

ff  =  BEST . PATH ( FM . NODE (MESSAGE ) , DESTINATION (MESSAGE ) ) 


’ '  THE  REST  OF  THIS  EVENT  SIMULATES  ACTIONS  PERFORMED 
; ;  AT  AN  INTERMEDIATE  NODE  . 

; ;  WE  BEGIN  TO  CHECK  WHETHER  THERE  IS  A  SLOT  AVAILABLE 
IN  THIS  ASSIGNED  CALLING  NODE  TO  ACCOMODATE 
; ;  THE  TRANSMISSION  TO  THE  NEWLY  ASSIGNED  CALLED  NODE 

LET  CALLING. NODE  =  FM. NODE (MESSAGE) 

LET  CALLED. NODE  =  TO . NODEXMESSAGET 
LET  CURRENT. SLOT  =  SLOT . ARRIVAL (MESSAGE) 

LET  SLOT3  =  0 
V^T  FRAME 3  =  0 

IF  CURRENT. SLOT  EQ  12 
LET  K  =  1 
GO  TO  NEXT . FRAME3 
£(.WAYS 

LET  K  =  CURRENT. SLOT  +  1 
FOR  J  =  K  TO  12  ,  DO 
IF  INFO (CALLED. NODE, J, 1)  GT  0  OR 

infoxcalling.nod£,j,4)  gt  o 

LET  SPECINFO (CALLING. NODE, CALLED. NODE, J)  =  0 


ALWAYS 

IF  S PECINFO( CALLED. NODE, CALLING. NODE, J)  EQ  6  AND 
INFO (CALLING. NODE . J, i)  EQ  0  AND 
INFO (CALLED. NODE, i,i)  EQ 0  AND 
INFO  (CALLING.  NODfe,^  4)  EQ  0 


CALLED . NODE , J , 1 )  EQ  0 
CALLING. NODE, J, 4)  EQ  0 
CINFO (CALLING . NODE , CAL 


LET  SPECINFO (CALLING. NODE, CALLED. NODE, J)  =  0 
.  LET  SLOT3  =  J 
GO  TO  CONTI 
ALWAYS 
V9°p 

LET  FRAME 3  =  1 

FOR  J  =  1  TO  CURRENT . SLOT .  DO 
IF  INFO (CALLING. NODE, J,l)  GT  0  OR 
INFO (CALLING. NODE, J. 4)  GT  0 
LET  SPECINFO ( CALLED. NODE, CALLING. NODE, J)  =  0 
ALWAYS 

IF  SPECINFO (CALLING. NODE, CALLED. NODE, J)  EQ  6  AND 
INFO (CALLED . NODE , J , 1 j  EQ  0  AND 
INFO (CALLING. NODE, J, 1)  EQ  0  AND 
INFO (CALLING . NODE , J,4)  EQ  0 
LET  SPECINFO (CALLED. NODE, CALLING. NODE, J)  =  0 
LET  SLOT3  =  J 
GO  TO  CONTI 
ALWAYS 

V90p 

LET  FRAME 3  =  0 

FOR  J  =  K  TO  12  ,  DO 
IF  INFO (CALLED. NODE, J,l)  EQ  0  AND 
INFO ( CALLING. NODfe.J, 4)  EQ  0  AND 
INFO (CALLING. NODE, J,l)  EQ  0 
LET  SLOT3  =  J 
GO  TO  CONTI 
ALWAYS 

V9°p 


ru  iz  ,  do 

CALLED. NODE, J,l)  EQ  0  AND 
CALLING  .  NODI*  ,  J  ,  4  )  EQ  0  AND 
CALLING. NODE, J,l)  EQ  0 


LET  FRAME3  =  I 

FOR  J  =  1  TO  CURRENT. SLOT,  DO 
IF  INFO (CALLING . NODE , J , 1 J  EQ  0  AND 
INFO (CALLING. NODE ,J, 4)  EQ  0  AND 
INFO  f  CALLED . NODE , i , 1 )  EQ  0 
LET  SLOT3  =  J 
GO  TO  CONTI 
ALWAYS 
LOOP 

99  TO  YYYY 

|  IjfEXT .  FRAME  3  ' 

LET  FRAME 3  =  1 
FOR  J  =  1  TO  12,  DO 
IF  INFO (CALLING. NODE, J, 1)  GT  0  OR 
INFO (CALLING. NODE, J. 4)  GT  0 
LET  SPECINFO ( CALLED. N6DE, CALLING. NODE, J)  =  0 
ALWAYS 

IF  SPECINFO (CALLING. NODE, CALLED. NODE, J)  EQ  6  AND 
INFO (CALLED. NODE, J,l)  EQ  0  AND 
INFO ( CALLING. NOD^, J, 1)  EQ  0  AND 
INFO (CALLING. NODE, J. 4)  EQ  0 
LET  SPECINFO (CALLED. NODE, CALLING. NODE, J)  =  0 
LET  SLOT3  =  J 
GO  TO  CONTI 
ALWAYS 

V90P 

FOR  J  =  1  TO  12,  DO 
IF  INFO (CALLINO. NODE, J,l)  EQ  0  AND 


INFO ( CALLING . NODE ,  J , 4 
INFOXCALLED . NODE , J , 1 ) 
SLOT 3  =  J 


4)  EQ  0 
'  EQ  0 


AND 


WITH  CKT. NUMBER (MESSAGE)  AS 
EVENT  RESPONSE  TO 


FOLLOWS 

REQUEST 


LET 

GO  TO  CONTI 
ALWAYS 
VQOP 

; yYYY ’ 

PRINT  1  LINE 
CIRCUIT  ****  FAILED  IN 
f$IP  1  OUTPUT  LINE 

;yN SUCCESS' 

LET  TYPEXMESSAGE)  =  PARTIAL. BREAKDOWN 
LET  CKT. FAILED  =  CKT. FAILED  +  1 
LET  BK.TO.DEST  =  BK.TO.DEST  -  1 
yfT  BK.TO.ORG  =  BK.TO.ORG  +  1 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  CKT. NUMBER (MESS AGE)  AND  TIME.V 
AS  FOLLOWS 

CIRCUIT  ****  FAILED  TO  CONNECT  AT  TIME  ****.****** 
SKIP  2  OUTPUT  LINES 
ALWAYS 

LET  DIRECTIONXMESSAGE)  =  3 
yfT  START. TIME (MESSAGE)  =  TIME.V 

SCHEDULE  A  TO . ORG . BREAKDOWN  GIVEN  MESSAGE 
AT  TIME.V  +  BREAKTIME 

$£turn 

CONTI  IDENTIFIES  A  SLOT  TO  CARRY  THE  SERVICE  MSG 
TO  THE  CALLED  NODE  AND  ALSO  COMPUTES  WHEN  THE 
SERVICE  MESSAGE  WILL  ARRIVE  AT  THE  CALLED  NODE 


| yONTl ' 

LET  DELAY 3  =  REAL . F ( 12*FRAME3  +  SLOT 3  -  CURRENT. SLOT) 

, ,  *  SLOT . DURATION 

LET  SLOT. ARRIVAL (MESSAGE)  =  SLOT 3 
LET  SLOT.ASSIGnTmESSAGE)  =  0 
y|T  RECSLOT (MESSAGE)  =  0 

IF  PRNT  EQ  0 

PRINT  2  LINES  WITH  CKT . NUMBERXMESSAGE ) , FM . NODE (MESSAGE ) 
....  AND  XTIME.V  +  DELAY 3 )  AS  FOLLOWS 

CKT  *****  HAS  SCHEDULED  A  REQ  FOR  SERVICE  AT  NODE  ** 

AT  TIME 

SKIP  2  OUTPUT  LINES 
WAYS 

SCHEDULE  A  REQUEST. FOR. SVC  GIVEN  MESSAGE 
TIME.V  ♦  DELAY 3 


IF  PRNT  EQ  0 

PRINT  2  LINES  WITH  CKT. NUMBER(MESSAGE) , FM . NODE (MESSAGE ) , 
,,  AND  (TIME.V  +  DELAY3 )  AS  FOLLOWS 
CKT  ****  HAS  SCHEDULED  A  RESPONSE  TO  SVC  AT  NODE  ** 

AT  TIME  isisit  itit 

$KIP  1  OUTPUT  LINES 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  END  OF  RESPONSE  TO  SVC  ARE  : 
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LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
^WAYS 

RETURN 

£]$?D  '  '  RESPONSE  TO  REQUEST 


j '  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

^YENT  to . dest . breakdown  given  bdtodest 

I  I 

' '  THIS  EVENT  BREAKS  DOWN  A  ESTABLISHED  CIRCUIT 
; ;  FROM  THE  ORIGINATOR  TO  THE  DESTINATION 

' '  IT  REMOVES  SLOT  ASSIGNMENTS  FROM  THE  NODAL 
'  SLOT  ASSIGNMENT  TABLES  SO  THAT  THESE  RELEASED  SLOTS 
; ;  CAN  BE  USED  IN  THE  ESTABLISHMENT  OF  OTHER  CIRCUITS 

' ’  THIS  EVENT  SELECTS  A  RELEVANT  PORTION  OF  PROGRAM  TO 
; \  EXECUTE  DEPENDING  ON  THE  VALUE  OF  DIRECTION (MESSAGE) 

' '  -2  :  START  BREAKING  DOWN  AN  ESTABLISHED  CIRCUIT 

J ;  FROM  THE  ORIGINATOR  NODE  TO  THE  DESTINATION 

' ’  -1  :  CONTINUE  BREAKING  DOWN  AN  ESTABLISHED  CIRCUIT 

; ;  FROM  AN  INTERMEDIATE  NODE  TO  THE  DESTINATION 

; ;  0  :  BREAK  DOWN  WHEN  A  RESPONSE  TO  REQ  FAILED 

^T  MESSAGE  =  BDTODEST 

p^FINE  INCREMENT  AS  A  REAL  VARIABLE 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS  ,  _  , 

TO. DEST  BREAK  DOWN  PERFORMED  AT  TIME  *********** 

SKIP  2  OUTPUT  LINES 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  START  OF  TO. DEST  BD  ARE  : 

LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
ALWAYS 

>  i 

IF  TYPE (MESSAGE)  EQ  I 

LET  TYPE (MESSAGE)  =  PARTIAL . BREAKDOWN 
ALWAYS 


E?T  CURRENT. SLOT  =  SLOT. ARRIVAL (MESSAGE) 

IF  DIRECTION (MESSAGE)  EQ  - 1 
GO  TO  CONT . BREAKDOWN 
ALWAYS 

IF  DIRECTION (MESSAGE)  EQ  0 
GO  TO  RESPONSE. BREAKDOWN 
ALWAYS 


PRINT  3  LINES  WITH  CKT . NUMBER(MESSAGE) . 

ORIGINATOR(MESSAGE) ,  DESTINATION (MESSAGE ) , 
TIME.V  AND  START. TIME (MESSAGE!  AS  FOLLOWS 
CIRCUIT  ****  FROM  **  TO  —WAS  ONCE  ESTABLISHED 
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BROKEN  DOWN  AT  TIME  ***********  AFTER  CARRYING  VOICE 
TRAFFIC  FOR  A  CALL  DURATION  OF  ****.******  SECS 
SKIP  2  OUTPUT  LINES 
^WAYS 


LET  FM. NODE (MESSAGE)  =  ORIGINATOR (MESSAGE) 

£fT  START. TIME (MESSAGE)  =  TIME.V 

LET  BK.TO.DEST  =  BK.TO.DEST  +  1 
£fT  DIRECTION(MESSAGE)  =  -1 

FOR  I  =  1  TO  12  .  DO 

IF  INFO (FM. NODE (MESSAGE) ,1,1)  EQ  CKT .NUMBER(MESSAGE) 
LET  SLOT2.XMIT  =  I 

LET  TO.  NODEjf  MESSAGE)  =  INFO  (FM .  NODE  (MESSAGE)  ,  1 , 3  ) 
LET  M  =  INFO (FM. NODE (MESSAGE) ,1,2) 

LET  RECSLOT (MESSAGE)  =  M 
LET  INFOTFM. NODE (MESSAGE), M, 4) 

=  INFO(FM.NODe7mESSAG£) ,M,4)  -  1 
LET  INFO (FM. NODE (MESS AGE) ,1,1)  =  0 
LET  INFO(FM.NODE (MESSAGE) , 1,2 ;  =  0 

let  specinfo(fm.node(messAg6),to.node(message) ,1)  = 

LET  INFO (FM. NODE (MESSAGE) ,1,2)  =  0 
GO  TO  COMPUTE . DELAY 
,  ALWAYS 

V9°p 

PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE)  AS  FOLLOWS 
FAULT  IN  TO.DEST  BREAKDOWN  FOR  CIRCUIT  NO.  ***** 

SKIP  1  OUTPUT  LINE 
$£TURN 


WE  HAVE  SET  THE  TRANSMIT  AND  RECEIVE  SLOTS  AT  THE 
ORIGINATOR  NODE  TO  ZERO. 

I  WE  NOW  BREAK  DOWN  THE  CIRCUIT  ALONG  THE  UPSTREAM  PATH 

’  CHECK  WHETHER  WE  ARE  AT  THE  DESTINATION  NODE  , 

IF  SO  ,  WE  NEED  ONLY  TO  DELETE  THE  TRANSMIT  ANl!)  RECEIVE 
’  SLOT  ASSIGNMENTS  FOR  THIS  CIRCUIT  AND 
\  COLLECT  STATISTICS  DATA 

» 

90NT . BREAKDOWN  * 

LET  SLOT1.XMIT  =  RECSLOT (MESSAGE ) 

LET  SLOT1.REC  =  INFO (TO . NODE (MESSAGE ), SLOT1 . XMIT , 2 ) 

LET  TOMES  =  TO . NODE(MESSAGE ) 

LET  INFO (TOMES , SLOT! . XMIT , 1 1  =  0 


LET  INFO (TOMES, SLOT!. XMIT, 1)  =  0 
LET  SPECINFO (TOMES , FM . NODE (MESSAGE) , SL 
LET  INFO (TO . NODE (MESSAGE ) , SLOT1 . XMIT , 2 
LET  INFO (TO. NODE (MESSAGE) , SLOT1 . XMIT, 3 


4GE) , SLOT1 • XMIT ) 
.XMlt,2)  =  0 
.XMIT, 3)  =  0 


LET  INFO (TO . NODE (MESSAGE) .SLOT 1 . REC ,4 ) 

=  INFO (TO. NODE (MESSAGE) , SL0T1 . R^C , 4)  -  1 

WE  HAVE  COMPLETED  RELEASING  THE  DOWN- SIDE  RECEIVE 
AND  TRANSMIT  SLOT  ASSIGNMENTS 

IF  WE  ARE  AT  THE  DESTINATION  NODE, WE  CAN  NOW  COLLECT 
STATISTIC  DATA.  OTHERWISE,  WE  WILL  CONTINUE  BREAKING 
DOWN  THE  UP- SIDE  SLOT  ASSIGNMENTS 


RETURN 
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^VWAYS 

FM.  NODE  (MESSAGE)  =  TO  .  NODE  (MESSAGE) 
FOR  I  =  1  TO  12  .  DO 


OR  I  =  1  TO  12  ,  DO 

IF  INFO (FM. NODE (MESSAGE) ,1,1)  EQ  CKT .NUMBER (MESSAGE) 
LET  SL0T2 . XMIT  ■  I 

LET  TO . NODE ^MESSAGE )  =  INFO (FM. NODE (MESSAGE) , I , 3 ) 
LET  M  =  INFO (FM. NODE (MESSAGE) ,1,2) 

LET  RECSLOT (MESSAGE)  =  M 


LET  RECSLOT (MESSAGE)  =  M 
LET  INFOiFM. NODE (MESSAGE) ,M,4) 

=  INFO(FM.NODETMESSAGfe) ,M,4)  -  1 
LET  INFO (FM. NODE (MESSAGE), I, l)  =  0 

LET  SPECINFO (FM. NODE (MESSAGE) .TO. NODE (MESSAGE) , I )=6 
LET  INFO (FM. NODE (MESSAGE) ,1,2)  =0 
LET  INFO (FM. NODE (MESSAGE) ,1,3)  =  0 
LET  DIRECTION (MESSAGE)  =  -1 
GO  TO  COMPUTE . DELAY 
ALWAYS 

V90P 

PRINT  1  LINE  WITH  CKT . NUMBER(MES SAGE )  AS  FOLLOWS 
CIRCUIT  "***  HAS  FAULT  IN  EVENT  TO . DE ST . BREAKDOWN 
SKIP  1  OUTPUT  LINE 
RETURN 


USES  THE  ASSIGNED  TRANSMIT  SLOT  TO  CARRY  THE  BD 
MESSAGE  TO  THE  NEXT  NODE  UPSTREAM  ON  THE  WAY  TO 
THE  DESTINATION  NODE. 

CALCULATES  WHEN  THE  BREAK  DOWN  MESSAGE  WILL  ARRIVE 
AT  THE  NEXT  NODE 


; COMPUTE . DELAY ' 

IF  SLOT2.XMIT  GT  (CURRENT . SLOT  +1) 

LET  DELAY  =  SLOT2 . XMIT  -  CURRENT . SLOT 
GO  TO  NEXT . BREAKDOWN 
ALWAYS 

IF  SLOT2 . XMIT  EQ  (CURRENT . SLOT  +  1) 

LET  DELAY  =13 
GO  TO  NEXT . BREAKDOWN 
ALWAYS 

IF  SLOT2 . XMIT  LT  (CURRENT . SLOT  +  1) 

LET  DELAY  =  SLOT2 . XMIT  -  CURRENT. SLOT  ♦  12 
GO  TO  NEXT . BREAKDOWN 
ALWAYS 


PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE )  AS  FOLLOWS 
FAULT  IN  TO.DEST  BD  DELAY  CALCULATION  FOR  CKT  **** 
SKIP  1  OUTPUT  LINE 
RETURN 


' NEXT . BREAKDOWN ' 


AT  TIME . V  +  INCREMENT 
99  TO  LAST. TO.DEST 

; RESPONSE . BREAKDOWN ' 

IF  RECSLOT (MESSAGE )  EQ  13 


.DURATION 

MESSAGE 


.*■  %  .  *  . 
V '.V 
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LET  START. TIME (MESS AGE)  =  TIME.V  -  START. TIME (MESSAGE) 
PERFORM  STATS . AT . END . BREAK  -  DOWN  GIVEN  MESSAGE 
^WAYS 

IF  RECSLOTfMESSAGE)  LE  12 
DESTROY  THE  MESSAGE  CALLED  MESSAGE 
ALWAYS 

»  » 

| ^AST . TO . DEST ' 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  END  OF  TO. DEST. BREAKDOWN  ARE  : 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  1  OUTPUT  LINE 
ALWAYS 


RETURN 

f^D  ^  '  TO .  DEST .  BREAKDOWN 


&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
£YENT  TO . ORG . BREAKDOWN  GIVEN  BDTOORG 

THIS  EVENT  BREAKS  DOWN  A  ESTABLISHED  CIRCUIT 
FROM  THE  DESTINATION  TO  THE  SOURCE  NODE. 

IT  REMOVES  SLOT  ASSIGNMENTS  FROM  THE  NODAL  SLOT 
ASSIGNMENT  TABLES  SO  THAT  THESE  RELEASED  SLOTS 
CAN  BE  USED  IN  THE  ESTABLISHMENT  OF  OTHER  CIRCUITS 

THIS  EVENT  SELECTS  A  RELEVANT  PORTION  OF  PROGRAM  TO 
EXECUTE  DEPENDING  ON  THE  VALUE  OF  DIRECTION (MESSAGE) 

1  :  START  BREAKING  DOWN  AN  ESTABLISHED  CIRCUIT  FROM 
THE  DESTINATION  NODE  TO  THE  SOURCE 

2  :  CONTINUE  BREAKING  DOWN  AN  ESTABLISHED  CIRCUIT 
FROM  AN  INTERMEDIATE  NODE  TO  THE  SOURCE 

3  :  START  BREAKING  DOWN  FROM  A  NODE  TO  THE  SOURCE 
CALLED  BY  REQUEST  FOR  SERVICE 

4  :  START  BREAKING  DOWN  FROM  A  NODE  TO  THE  ORIGINATOR 
CALLED  BY  RESPONSE  TO  REQUEST 


V$T  MESSAGE  =  BDTOORG 

P^FINE  INCREMENT  AS  A  REAL  VARIABLE 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS 

TO . ORG . BREAKDOWN  PERFORMED  AT  TIME  ****.****** 

SKIP  2  OUTPUT  LINES 

PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  THE  AT  START  OF  TO.ORG  ARE  : 

LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
ALWAYS 

*  * 

IF  TYPE (MESSAGE)  EQ  1 
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LET  TYPE (MESSAGE)  =  PARTIAL . BREAKDOWN 
^WAYS 

t  » 

V$T  CURRENT. SLOT  =  SLOT. ARRIVAL (MESSAGE) 

IF  DIRECTION (MESSAGE)  EQ  1 
GO  TO  ONE 
ALWAYS 

IF  DIRECTION (MESSAGE)  EQ  2 
GO  TO  TWO 
ALWAYS 

IF  DIRECTION (MESSAGE)  EQ  3 
GO  TO  THREE 
ALWAYS 

IF  DIRECTION (MESSAGE )  EQ  4 
GO  TO  FOUR 
ALWAYS 


JQNE' 

IF  PRNT  EQ  0  AND  DIRECTION (MESSAGE)  EQ  I 
PRINT  3  LINES  WITH  CKT . NUMBERTmESSAGE) , 

ORIGINATOR (MESSAGE) ,  DESTINATION (MESSAGE) , 
START. TIMEfMES SAGE)  AND  TIME.V  AS  FOLLOWS 
CKT  ****  FM  **  TO  NODE  **  WAS  ESTABLISHED  FOR  A  CALL 
DURATION  OF  ***********  SECS  IS  BEING  BROKEN  DOWN 
AT  TIME  ****.******  SECS 
SKIP  2  OUTPUT  LINES 
ALWAYS 

LET  FM. NODE (MESSAGE)  =  DESTINATION (MESSAGE) 

LET  START. TIME (MESSAGE)  =  TIME.V 
LET  BK.TO.ORG  =  BK.T0.ORG  +  1 
5$T  DIRECTION (MESSAGE )  =  2 

; ^UMP . IN ' 

FOR  I  *  1  TO  12  ,  DO 

IF  INFO (FM. NODE (MESSAGE) ,1,1)  EQ  CKT. NUMBER (MESSAGE) 
LET  SL0T1.XMIT  =  I 


MESSAGE)  =  TIME.V 
BK.T0.ORG  +  1 


LET  TO. NODE (MESSAGE 
LET  MM  =  INFOTfM.NO 
LET  RECSLOT (MESSAGE 
LET  INFOTfM.NODEXME 


=  INFO(FM.NODE(MESSAt_x,-_v., 

LET  INFO (FM.NODETmES SAGE] .1,1)  =0 
LET  SPECINFO (FM . NODE (MES$Ag£ ) . TO . NODE (MESSAGE ) , I )  =  6 
LET  INFO (FM. NODE (MESSAGE) ,1,2)  =0 
LET  INFO (FM. NODE (MESSAGE), I, 3)  =  0 
LET  DIRECTION (MESSAGE)  =2 
GO  TO  COMPUTE. DELAY 
ALWAYS 

Wop 

PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE )  AS  FOLLOWS 
FAULT  IN  EVENT  TO . ORG . BREAKDOWN  FOR  CIRCUIT  NO.  ***** 
SKIP  1  OUTPUT  LINE 
RETURN 


SSAGE)  =  INFO (FM. NODE (MESSAGE) ,1,3) 
FM. NODE (MESSAGE) ,1,2) 

ESSAGE]  =  MM 
DDE/MEsSAGE ) , MM , 4 )  v 
.N0DETMESSAGfe],MM,4)  - 
ODE (MESSAGE) ,1.1)  =0 


f  f 
»  f 


WE  HAVE  SET  THE  TRANSMIT  AND  RECEIVE  SLOTS  AT  THE 
DESTINATION  NODE  TO  ZERO. 

WE  NOW  BREAK  DOWN  THE  CIRCUIT  ALONG  THE  TO.ORG  PATH 


CHECK  WHETHER  WE  ARE  AT  THE  ORIGINATOR  NODE,  IF  SO, 
WE  NEED  ONLY  TO  DELETE  THE  TRANSMIT  AND  RECEIVE 
SLOT  ASSIGNMENTS  FOR  THIS  CIRCUIT  AND 
COLLECT  STATISTICS  DATA 


'{'WO' 


LET  SLOT2.XMIT  =  RECSLOT (MESSAGE) 

LET  SLOT2.REC  =  INFOTtO . NODE (MESSAGE) , SI 
LET  INFOTTO. NODE (MES SAGE] . SLQT2 . XMIT ,1) 
LET  SPECINFO(TO . NODETmESSAgE) , FM. NODE (Ml 
.SLOT2.XMIT)  =  6 

LET  INFO (TO . NODETMESSAGE  , SLOT2 . XMIT , 2 ) 
LET  INFO (TO . NODE (MESSAGE  , SLOT2 . XMIT, 3 ) 
LET  INFO (TO .NODE (MESSAGE} , SLOT2 .REC, 4) 

=  INFO (TO . NODE (MESSAGE ) , SLOT2 . REC , 4 


LOT 2 . XMIT , 2 ) 


(MESSA 


FM. NOD£ (MES SAGE) 


J  ,  JLU  i-  C.  •  Al  l!  1  •  J  i  -  V 

ESSAGE) , SLOT2 .REC, 4) 
(MESSAGE) .SL0T2. REC, 4)  -  I 


WE  HAVE  COMPLETED  RELEASING  THE  UP- SIDE  RECEIVE  AND 
TRANSMIT  SLOT  ASSIGNMENTS 


IF  WE  ARE  AT  THE  ORIGINATOR  NODE , WE  CAN  NOW  COLLECT 
STATISTICS.  OTHERWISE.  WE  WILL  CONTINUE  BREAKING 
DOWN  THE  DOWN  SIDE  SLOT  ASSIGNMENTS 


IF  TO. NODE (MES SAGE)  EO  ORIGINATOR (MES SAGE) 

LET  START. TIME (MES SAGE J  =  TIME.V  -  START. TIME (MESSAGE) 
PERFORM  STATS. AT. END. BREAK. DOWN  GIVEN  MESSAGE 
RETURN 
ALWAYS 

V$T  FM. NODE (MESSAGE)  =  TO . NODE (MESSAGE) 

FOR  I  =  1  TO  12  .  DO 
IF  INFO (FM. NODE (MESSAGE) ,1,1)  EQ  CKT.N1 
LET  SLOT  1 .  XMIT  =  I 

LET  TO. NODE (MESSAGE )=  INFO (FM . NODE (Ml 
LET  M  =  INFO (FM. NODE (MES SAGE) ,1,2) 

LET  RECSLOT (MESSAGE)  =  M  ! 

LET  INFOTFM.NODEIMESSAGEKM^) 


1  TO  12  ,  DO 

£FM. NODE (MESSAGE) ,1,1)  EQ  CKT. NUMBER (MESSAGE) 

i . NODETMESSAGE ) , =  INFO (FM . NODE (MESSAGE ) , 1 , 3 ) 

=  INFO (FM. NODE (MES SAGE) ,1,2) 

CSLOT (MESSAGE )=  M 


INFO (FM. NODE 
=  INFO (FM. NO 


)  =  M 

IsSAGE)  ,M,4)  v 
MESSAGt),M,4) 
;SSAGE),I.i)  = 


LET  INFO (FM. NODE (MESSAGE) .1,1)  =  0 
LET  SPECINFOfFM. NODETMESSAGE) .TO. NODE (MESSAGE) ,1)  =  6 
LET  INFO (FM. NODE (MESSAGE) ,1,2)  =  0 
LET  INFO (FM. NODE (MES SAGE) .1,3)  =  0 
LET  DIRECTION (MESSAGE)  =2 
GO  TO  COMPUTE . DELAY 
t ALWAYS 

V?°P 

PRINT  I  LIljfE  WITH  CKT  .NUMBER (MESSAGE)  AS  FOLLOWS 
CIRCUIT  ****  HAS  FAULT  IN  EVENT  TO . ORG . BEAKDOWN 
^fTURN 


; JHREE ' 


IF  PRNT  EQ  0  AND  DIRECTION (MESSAGE)  EQ  3 
PRINT  3  LINES  WITH  CKT .NUMBER(MES SAGE) . 

ORIGINATOR (MESSAGE) ,  DESTINATION(MESSAGE) , 
j  START. TIME (MESSAGE)  AND  TIME.V  AS  FOLLOWS 
CKT  *****  FROM  **  TO  NODE  **  CANNOT  BE  ESTABLISHED, 
BEGIN  TO  BREAK  DOWN  THE  CIRCUIT  AT  TIME  ****.****** 
TIME  NOW  IS  ****.****** 

SKIP  2  OUTPUT  LINES 
ALWAYS 


V$T  DIRECTION (MESSAGE)  =  2 
99  TO  JUMP. IN 

;?our' 

IF  PRNT  EQ  0  AND  DIRECTION (MESSAGE)  EQ  4 
PRINT  3  LINES  WITH  CKT . NUMBER(MESSAGE) . 

ORIGINATOR (MESSAGE) ,  DESTINATI0N(MESSAGE ) , 
START. TIME (MESS AGE)  AND  TIME.V  AS  FOLLOWS 
CKT  *****  FROM  NODE  **  TO  **  CANNOT  BE  ESTABLISHED, 
BEGIN  TO  BREAK  DOWN , THE  CIRCUIT  AT  TIME  *«?*.  ****** 
TIME  NOW  IS  ****.****** 

SKIP  2  OUTPUT  LINES 
ALWAYS 

V?T  DIRECTION (MESSAGE)  =  2 
99  TO  JUMP. IN 
J  9OMPUTE . DELAY ' 


IF  SLOT1.XMIT  GT  ( CURRENT . SLOT  +  1) 

LET  DELAY  =  SLOTI.XMIT  -  CURRENT. SLOT 
GO  TO  LAST. DOWN 
ALWAYS 

IF  SLOTI.XMIT  EQ  ( CURRENT . SLOT  +  1) 

LET  DELAY  =13 
GO  TO  LAST. DOWN 
ALWAYS 

IF  SLOTI.XMIT  LT  { CURRENT . SLOT  +  1) 

LET  DELAY  =  SLOTI.XMIT  -  CURRENT. SLOT  +  12 
GO  TO  LAST. DOWN 
ALWAYS 

PRINT  1  LINE  WITH  CKT . NUMBER (MESSAGE )  AS  FOLLQWS 
FAULT  IN  TO.ORG.BD  DELAY  COMPUTATION  AT  CKT  **** 
^L^TURN 

; VAST . DOWN ' 

LET  SLOT. ARRIVAL (MESS AGE)  =  SLQT1.XMIT 

VVT  INCREMENT  =  REAL. F( DELAY)  *  SLOT . DURATION 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  END  OF  TO.ORG.BD  ARE  : 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  1  OUTPUT  LINE 

Always 

SCHEDULE  A  TO . ORG . BREAKDOWN  GIVEN  MESSAGE 
Af  TIME.V  +  INCREMENT 

RETURN 

V^D  ^  TO . ORG . BREAKDOWN 


(CURRENT. SLOT 
l.XMIT  -  CURRENT 


NT.  SI 


| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
AQUTINE  FOR  VIRTUAL. CKT  GIVEN  ESTABLISH. MSG 


,  1 
,  » 


THIS  ROUTE  COLLECTS  STATISTICS  ON  CIRCUITS  THAT  ARE 


>v 


ESTABLISHED  AND  SCHEDULES  THEIR  EVENTUAL 
DISESTABLISHMENT  ACCORDING  TO  AN  EXPONENTIAL 
DISTRIBUTION  FUNCTION  WITH  A  MEAN  CALL  DURATION 
; ;  OF  20  SECS 

V$T  MESSAGE  =  ESTABLISH. MSG 

p^FINE  CALL. END. TIME  AS  A  REAL  VARIABLES 

IF  PRNT  EQ  1 

PRINT  1  LINE  WITH  TIME.V  AS  FOLLOWS 

ROUTINE  VIRTUAL  CIRCUIT  PERFORMED  AT  ****.****** 

SKIP  1  OUTPUT  LINE 
^WAYS 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  WHEN  VIRTUAL  CKT  WAS  CALLED  ARE  : 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
ALWAYS 


LET  CKT.ESTAB  =  CKT. E STAB  +  1 

LET  BK.TO.DEST  =  BK.TO.DEST  -  1 

LET  DELAY. SUM  =  DELAY. SUM  ♦  START . TIME (MESSAGE) 

VfT  AVG . TIME . EST  =  DELAY. SUM  /REAL. F( CKT . ESTAB) 

I  f 

; ;  DID  THIS  CIRCUIT  TAKE  THE  MOST  TIME  TO  ESTABLISH 


IF  START. TIME (MESSAGE) 

LET  LONG . TIME . EST  =  S 
LET  CKT . LONG . TIME . EST  =  CKT 
£VWAYS 


GT  LONG . TIME . EST 
TART . TIME (MESSAGE ) 

.NUMBER (MESSAGE) 


SCHEDULES  THE  TIME  FOR  THE  NEWLY  ESTABLISHED  CIRCUIT 
TO  BE  ACTIVE  AND  SELECTS  FROM  EITHER  ORIGINATOR  NODE 
OR  DESTINATION  THE  CIRCUIT  TO  BE  DISESTABLISHED  AND 
SCHEDULES  THE  EVENT  TO  BREAK  DOWN  THE  CIRCUIT 


LET  CALL. DURATION  =  EXPONENTIAL . F (MEAN . CALL. DURATION , 6 ) 
LET  CALL. END. TIME  =  CALL . DURATION  ♦  TIME.V 
LET  SUM. DURATION  =  SUM. DURATION  +  CALL. DURATION 
LET  AVG. DURATION  =  SUM. DURATION  /  REAL. F( CKT . ESTAB) 

LET  START. TIMeTmESSAGEJ  =  CALL . DURATION 
V?T  TYPE (MESSAGE)  =  FULL . BREAKDOWN 

; ;  RANDOMLY  SELECT  A  CURRENT  SLOT 

LET  SLOT. ARRIVAL (MESSAGE)  =  RANDI . F( 1 , 12 , 4) 

IF  PRNT  EQ  0 

PRINT  1  LINE  WITH  SLOT. ARRIVAL (MESSAGE)  AS  FOLLOWS 
CIRCUIT  BEGIN  BREAKING  DOWN  IN  SLOT  ** 

SKIP  1  OUTPUT  LINE 
4^WAYS 


IF  FAIR. POINTER  EQ  1 
LET  FAIR. POINTER  = 

LET  FM. NODE (MESSAGE 
LET  DIRECTIOnTmESSA 
SCHEDULE  AN  TO.DEST.B 
AT  CALL . END . TIME 
GO  TO  LAST. VIRTUAL 
ALWAYS 


=  ORIGINATOR (MESSAGE) 
E1eakdown  GIVEN  MESSAGE 
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IF  FAIR. POINTER  EQ  0 
LET  FAIR. POINTER  =  1 
LET  DIRECTION (MESSAGE)  =  1 
SCHEDULE  A  TO . ORG . BREAKDOWN  GIVEN  MESSAGE 
AT  CALL. END. TIME 
4V WAYS 

; VAST. VIRTUAL' 

IF  PRNT  EQ  0  AND  FAIR. POINTER  EQ  0 
PRINT  3  LINES  WITH  CKT . NUMBER(MESSAGE) , 

ORIGINATOR  (MESSAGE)  ,  DESTINATION  (.MESSAGE)  , 
TIME . V ,  CALL . DURATldN  AND  CALL . END . TIME 

QK|  *****  FM  NODE  £$Lt§W§*  WAS  ESTABLISHED  AT  TIME 

wwft.raw**  and  has  call  duration  of  ☆*■*#*■*  SEC 

BD  WILL  BEGIN  IN  THE  TO.DEST  DIRECTION' AT  ***.*** 
SKIP  I  OUTPUT  LINE 
ALWAYS 

IF  PRNT  EQ  0  AND  FAIR. POINTER  EQ  1 
PRINT  3  LINES  WITH  CKT . NUMBER (MESSAGE ) . 

ORIGINATOR  (MESSAGE)  .  DESTINATION  (.MESSAGE)  , 
TIME . V,  CALL . DURATION  AND  CALL . END . TIME 

CKT  *****  FM  **ATOFNODEW§*  WAS  ESTABLISHED  AT  TIME 
***.*****  AND  HAS  CALL  DURATION  OF  ****.******  $EC 
BD  WILL  BEGIN  IN  THE  TO.ORG  DIRECTION  AT  **** 

SKIP  1  OUTPUT  LINE 
ALWAYS 

IF  PRNT  EQ  0 
PRINT  1  LINE  AS  FOLLOWS 

ATTRIBUTES  OF  ENTITY  AT  END  OF  VIRTUAL. CKT  ARE  : 
LIST  ATTRIBUTES  OF  MESSAGE 
SKIP  2  OUTPUT  LINES 
ALWAYS 

f  I 

RETURN , 

$ljlD  '  '  VIRTUAL  CKT 


| |  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

VQUTINE  FOR  STATS. AT. END. BREAK. DOWN  GIVEN  B.D. MESSAGE 

*  i 

' '  THIS  ROUTINE  COLLECTS  STATISTICS  OF  THE  CIRCUIT 
\ J  THAT  ARE  BROKEN  DOWN 

’’  IT  IS  CALLED  BY  TO.DEST  OR  TO.ORG  BREAKDOWN  EVENTS 


V$T  MESSAGE  =  B.D. MESSAGE 

p^FINE  BD.TIME  AS  A  REAL  VARIABLE 

IF  TYPE (MESSAGE)  EQ  FULL . BREAKDOWN 
.  LE.T_.CKT . DISESTAB  =  CKT.DISESTAB  ♦  I 


WAYS 

LET  CKTS.BD  =  CKT.DISESTAB  ♦  CKT. FAILED 
LET  BK.TO.ORG  =  BK.TO.ORG  -  1 
LET  BD.TIME  =  START . TIME (MESSAGE) 

LET  SUM. BD.TIME  =  SUM. BD.TIME  +  BD.TIME 


AVG . BD . TIME  =  SUM. BD. TIME  /  REAL . F ( CRTS . BD ) 

; ;  COLLECTS  STATS  ON  THE  BREAKDOWN  OF  PARTIAL 
| ;  ESTABLISHED  CIRCUITS 

IF  TYPE (MESSAGE )  EO  PARTIAL .  BREAKDOWN 
IF  START. TIMETmESSAGEI  GT  LONG.P.BD 
LET  LONG.P.BD  =  START. TIME (MESSAGE) 

,  ALWAYS 

LET  TOT.P.BD  =  TOT.P.BD  ♦  START . TIME (MESSAGE) 
LET  P.BD. COUNTER  =  P.BD. COUNTER  +  I 
LET  AVG. P.BD  =  TOT.P.BD  /  REAL . F ( P . BD . COUNTER ) 
^  WAYS 

•  f 

IF  TYPE (MESSAGE)  EQ  FULL . BREAKDOWN 
IF  START . TIMEIMESSAGE 
LET  LONG.C.BD  =  STAR1 
f  .ALWAYS 

LET  TOT.C.BD  =  TOT.C.BD  +  START. TIME (MESSAGE) 
LET  C.BD. COUNTER  =  C.BD. COUNTER  +1 
LET  AVG. C.BD  =  TOT.C.BD  /  REAL . F(C . BD. COUNTER) 
QUAYS 

P^STROY  THE  MESSAGE  CALLED  MESSAGE 
lj^TURN 

' '  STATS  AT  END  BREAKDOWN 


GT  LONG.C.BD 
TIME (MESSAGE) 


; :  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
£YENT  HALT. SIMULATION  SAVING  THE  EVENT  NOTICE 
*  » 

; '  THIS  ROUTINES  HALTS  THE  PROGRAM  AND  PRINTS 
; ;  STATISTICS  AND  ANALYSIS  STATEMENTS 

f  I 

^T  PRNT.  COUNTER  =  PRNT . COUNTER  +  I 
START  NEW  PAGE 

PRINT  1  LINE, WITH  PRNT. COUNTER  AS  FOLLOWS 
THIS  IS  THE  **  TH  SIMULATION  RUN 
f$IP  1  OUTPUT  LINE 

LET  FRACT. SUCCESSFUL. CALL  =  REAL . F ( CKT . ESTAB 

/  REAL. F( CKT. SUM 
^£T  FRACT . LOST . CALL  =  100.0  -  FRACT .  SUCCESSF' 

PRINT  15  LINES  WITH  CKT. SUM,  CKT. ESTAB,  CKT. DISE STAB, 

CKT. FAILED,  OFFERED ! TRAFFIC ,  AVG . TIME . EST, 

LONG . TIME . £ST , CKT . LONG . TIME . EST ,  AVG . DURATION , 

P . BD . COUNTER .  C . BD . COUNTER ,  AVG. C.BD,  SLOT . DE^TH , 
FRACT. SUCCESSFUL. CALL  AND  FRACT . LOST . CALL 
AS  FOLLOWS 

STATISTICS  OF  THIS  SIMULATION  : 

NUMBER  OF  CIRCUIT  CREATED  SO  FAR  =  ***** 

NUMBER  OF  CIRCUIT  ESTABLISHED  =  **** 

NUMBER  OF  ESTABLISHED  CRTS  THAT  ARE  DISESTABLISHED  **** 
NUMBER  OF  CIRCUITS  WERE  NOT  ESTABLISHED  =  **** 

OFFERED  TRAFFIC  IS  ** 

AVERAGE  TIME  TO  ESTABLISH  A  CKT  =  ***.****** 

LONGEST  TIME  TO  ESTABLISH  A  CKT  =  ***.******  AT  CKT  **** 
AVERAGE  DURATION  OF  AN  ESTABLISHED  CIRCUITS  =  *** . ****** 
NUMBER  OF  PARTIALLY  ESTABLISHED  CIRCUITS  =  **** 


*  100.00 

CALL 


NUMBER  OF  FULLY  ESTABLISHED  CIRCUITS  =  **** 

AVERAGE  TIME  TO  BREAK  DOWN  A  COMPLETED  CKT  =  ****.****** 
SLOT  DEPTH  IS  ** 

PERCENTAGES  OF  SUCCESSFULL  CALL  =  *** . ***** 

PERCENTAGES  OF  LOST  CALL  =  ***.****** 

$$IP  3  OUTPUT  LINES 

t*  t 

FOR  NODE  =  1  TO  11 ,  DO 

RESERVE  SLOTS. PER. FRAME (*)  AS  12 
LET  EMPTY  =0 
LET  TRANSMIT . SLOTS  =  0 
LET  RECEIVE. SIGS  =  0 
,,LET  REC. SLOTS  =  0 

FOR  S  =  1  TO  12  ,  DO 
IF  INFO ( NODE, S, 4)  GE  1 

LET  RECEIVE. siGS  =  RECEIVE. SIGS  +  INFO (NODE , S , 4 ) 

LET  REC. SLOTS  =  REC. SLOTS  +1, 

LET  SLOTS. PER. FRAME (S)  =  INFO (NODE , S ,4) 

GO  TO  OUT 
, ,  ALWAYS 

IF  INFO (NODE , S , 1 )  GT  0 
LET  TRANSMlf . Slots  =  TRANSMIT. SLOTS  +  1 
LET  SLOTS. PER. FRAME (S)  =  7000  +  INFO (NODE , S , 3 ) 

GO  TO  OUT 
, ,  ALWAYS 

IF  INFO (NODE , S , 1)  EQ  0  AND  INFO (NODE, S ,4)  EQ  0 
LET  EMPTY  =  EMPTY  +1 
LET  SLOTS. PER. FRAME (S)  =  0 
, ,  ALWAYS 

, ; OUT ' 

LOOP 


PRINT  2  LINES  WITH  NODE,  EMPTY,  TRANSMIT . SLOTS , 

RECEIVE. SiGS  AND  REC. SLOTS  AS  FOLLOWS 
NODE  **  HAS  **  EMPTY  SLOTS,  **  TRANSMIT  SLOTS.  AND 
HAS  **  RECEIVE  SIGNALS  STACKED  IN  **  RECEIVE  SLOTS 
SKIP  2  OUTPUT  LINES 


;  ;  PRINT  THE  TIME  SLOT  ASSIGNMENT  AT  EACH  NODE 


PRINT  1  LINE  WITH  SLOTS. PER.! 

SLOTS. PER. FRAME (2 
SLOTS . PER . FRAME ( 3 


•'RAME(l), 
j SLOTS. PER. FRAME 


SLOTS . PER . FRAME (5), SLOTS . PER . FRAME 
SLOTS . PER . FRAME  73, SLOTS . PER . FRAME 
SLOTS . PER . FRAME i 9  , SLOTS . PER . FRAME 
SLOTS . PER . FRAME ill) , 


SLOTS. PER. FRAME ( 
SLOTS . PER . FRAMEl 
AND  SLOTS. PER. FS 

****  ****  it ***^^t*  m mi  **** 

, , SKIP  2  OUTPUT  LINES 

V90p 

?$RFORM  TERMINATION 
RETURN 

END  ^  HALT . SIMULATION 


►§«  » 

:io). 


*•» »•» »*. 

,  n  «,  H  n  A  A 


't  -’-***  *  it  it  *  ****  it it** 
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f  » 
»  t 


&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 


$QUTINE  FOR  TERMINATION 

FOR  EACH  NEW. CALL  IN  EV . S ( I . NEW . CALL ) ,  DO 
CANCEL  THE  NEW. CALL 
DESTROY  THE  NEW. CALL 

V90p 

FOR  EACH  REQUEST. FOR. SVC  IN  EV . S (I . REQUEST . FOR. SVC) ,DO 
CANCEL  THE  REQUEST. FOR. SVC 
DESTROY  THE  REQUEST. FOR. SVC 

V90p 

FOR  EACH  RESPONSE. TO. REQUEST 

IN  EV.S (I. RESPONSE. TO. REQUEST),  DO 
CANCEL  THE  RESPONSE . TO . REQUEST 
DESTROY  THE  RESPONSE . TO . REQUEST 

V9°p 

FOR  EACH  TO . DEST . BREAKDOWN 

IN  EV.S (I. TO. DEST. BREAKDOWN),  DO 
CANCEL  THE  TO . DEST . BREAKDOWN 
DESTROY  THE  TO. DEST. BREAKDOWN 

V90p 

FOR  EACH  TO . ORG . BREAKDOWN 

IN  EV.S (I. TO. ORG. BREAKDOWN).  DO 
CANCEL  THE  TO . ORG . BREAKDOWN 
DESTROY  THE  TO . ORG . BREAKDOWN 

V9°p 

FOR  EACH  YEN. ROUTING  IN  EV. S (I . YEN . ROUTING) ,  DO 
CANCEL  THE  YEN. ROUTING 
DESTROY  THE  YEN. ROUTING 

V9°p 

FOR  EACH  SLOT. FOR. YEN  IN  EV . S(I . SLOT . FOR. YEN) ,  DO 
CANCEL  THE  SLOT. FOR. YEN 
DESTROY  THE  SLOT. FOR. YEN 

V?°P 

FOR  EACH  NSLOT . FOR . YEN  IN  EV . S (I . NSLOT . FOR. YEN) ,  DO 
CANCEL  THE  NSLOT . FOR. YEN 
DESTROY  THE  NSLOT . FOR. YEN 

V90p 

FOR  EACH  HALT. SIMULATION  IN  EV . S (I . HALT . SIMULATION) ,  DO 
CANCEL  THE  HALT . SIMULATION 
DESTROY  THE  HALT . SIMULATION 

V9°p 

RETURN 

END  ^  TERMINATION 

/* 
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